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DITORIAL 


NOTICIAS 


En  este  número  presentamos  un  magnífico 
programa  de  sonido.  Hasta  la  fecha  no  se 
había  profundizado  en  este  tema  desde  el 
punto  de  vista  didáctico.  Con  el  artículo 
MAQUINA  DE  SONIDO  y  el  programa 
que  lo  acompaña,  esperamos  ampliar  los 
conocimientos  de  nuestros  lectores  en 
materia  de  creación  de  efectos  sonoros. 
Debemos  mencionar  que  el  autor  del 
programa  es  un  colaborador,  que  ha 
visto  premiada  así  su  extraordinaria 
labor. 


Los  sprites  han  sido  durante  mucho 

tiempo  grandes  esperanzas  potenciales. 
Las  posibilidades  de  animación  son 
importantes,  pero  estos  gráficos  eran 
ingobernables  en  muchas  zonas  de  la 
pantalla.  Con  SPRITES  EN  LOS 
BORDES,  se  descubren  cosas  increíbles 
sobre  esos  pequeños  fantasmas. 


Nuestra  encuesta  sobre  los  gustos  de 

nuestros  lectores  a  la  hora  de  jugar  ha 
sido  un  éxito.  Desde  el  punto  de  vista  de 
objetividad,  estamos  orgullosos  de  la 
respuesta  de  nuestros  lectores.  Todos  los 
resultados,  estadísticas  y  comentarios, 
han  sido  analizados  por  nuestra 
redacción  en  las  páginas  de  este  número. 
Per  o  además,  para  completar  y  ampliar 
las  opiniones  sobre  esta  encuesta, 
realizamos  una  serie  de  entrevistas  entre 
los  responsables  de  las  casas  de  software. 
Hemos  publicado  los  temas  tratados  con 
nuestros  entrevistados,  además  de  las 
respuestas  de  los  mismos  en  forma 
global. 


on  el  completo  contenido  de  este 
número,  esperamos  que  paséis  muchas 
horas  de  este  verano  junto  a  vuestro 
ordenador.  Desde  la  redacción  os 
deseamos  un  FELIZ  VERANO. 


PRESENTACION 
DE  COMMODORE,  S.A. 

En  el  momento  del  cierre  de 
este  número,  se  presenta  en 
un  hotel  madrileño 
COMMODORE,  S.A.  Esta 
empresa  es  desde  hace  unas 
semanas  la  representante 
oficial  de  Commodore  en 
España.  No  se  trata  de  una 
empresa  distribuidora  sino 
de  la  propia  compañía 
COMMODORE. 

Creemos  que  esta  magnífica 
noticia  para  la  familia 
commodoriana,  permita  un 
mejor  servicio  técnico, 
comercial  y  de  todo  tipo. 

En  el  próximo  número 
ampliaremos  esta  noticia. 

HARDWARE 
PARA  AMIGA 

Una  nueva  empresa  de 
Patencia  ha  apostado  fuerte 
por  el  AMIGA.  PIXEL 
SOFT,  S.L.  está 
comercializando  el 
digitalizador  de  imágenes 
DIGI-VIEW  2.0  y  un 
sincronizador  de  señales  de 
vídeo,  también  para 
AMIGA,  CONTROLADOR 
DE  VIDEO  A8600. 

El  digitalizador  de  vídeo 
permite  capturar  imágenes 
tomadas  de  un  dispositivo 
exterior  y  convertirlas  en 
datos  que  pueda  procesar  el 
ordenador.  El  software  que 
lo  acompaña  está  muy 
mejorado  con  respecto  a  la 
versión  1.0,  sobre  todo 
respecto  a  los  colores. 

Para  muchas  aplicaciones  de 
imagen  y  sonido  es  necesario 
mezclar  dos  señales.  El 
CONTROLADOR  DE 
VIDEO  A8600  consigue 
sincronizar  dos  señales  de 
vídeo,  de  forma  que  puedan 
ser  mezcladas,  representadas 
o  grabadas  como  una  sola  señal. 
En  el  próximo  número 
ampliaremos  la  información 
sobre  estos  aparatos.  Será 
en  la  sección  de  comentarios. 
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ENCUESTA  PE  JUEGOS  I 


RESULTADOS  DE  LA  ENCUESTA  REALIZADA  A  NUESTROS  LECTORES 
SOBRE  LOS  MEJORES  JUEGOS  COMMODORE  DE  TODOS  LOS  TIEMPOS 


Los  resultados  están  expresados 
en  tantos  por  ciento.  Apare¬ 
ciendo  en  las  listas  de  cada  apar¬ 
tado,  sólo  aquellos  que  han 
obtenido  un  mínimo  del  dos  por 
ciento  de  los  votos.  Los  programas 
votados  han  sido  muchísimos,  bastantes 
de  ellos  con  un  número  de  votos  que 
oscila  entre  uno  y  veinte.  Teniendo  en 
cuenta  que  los  programas  votados  por 
veinte  lectores,  representa  sólo  el  uno 
por  ciento  de  los  votos,  parece  lógico  no 
mencionarlos.  Realmente  se¬ 
ría  interesante  analizar  los 
resultados  de  cada  programa 
en  particular,  pero  hemos 
creído  más  provechoso  diri¬ 
gir  las  posibles  preguntas  a 
los  protagonistas.  Con  este 
motivo  nos  dirigimos  a  las 
empresas  distribuidoras  de  jue¬ 
gos.  Sus  representantes  tuvie¬ 
ron  la  amabilidad  de  atender¬ 
nos  y  responder  a  nuestras  pre¬ 
guntas  sobre  la  encuesta. 

De  entre  los  resultados  de 
la  encuesta  sacamos  nues¬ 
tras  propias  conclusiones  y 
nos  planteamos  algunas  pre¬ 
guntas.  Dichas  preguntas 
cuestionaban  temas  como: 

•  La  opinión  sobre  la 
clasificación  de  los  diferen¬ 
tes  juegos  respecto  a  las  ven¬ 
tas  de  los  mismos. 

•  La  valoración  de  la 
reducida  aparición  de  pro¬ 
gramas  recientes. 

•  Gran  cantidad  de  pro-  d.  j 

gramas  votados,  y  la  consi¬ 
guiente  proporción  elevada 
en  el  apartado  “otros”. 

•  Comparación  de  los  resultados 
con  respecto  a  las  versiones  de  otros 
ordenadores. 

•  Posible  causa  de  algunas  ausencias 
notables,  detectadas  al  menos,  por  la 
redacción  de  nuestra  revista. 

•  Opinión  general  de  la  encuesta 
realizada  y  de  sus  resultados. 

Estas  eran  las  cuestiones  fundamenta¬ 
les,  pero  la  buena  disponibilidad  de 
nuestros  entrevistados  hizo  que  nos  ex¬ 
tendiésemos  a  otros  temas.  Las  perso¬ 
nas  entrevistadas  fueron  las  siguientes: 

D.  Fernando  Navarro, 
de  DRO  SOFT. 

D.  Antonio  Peinado, 
de  PROEIN  SOFT  LINE. 

D.  Carlos  Lázaro, 
de  GRUPO  ZAFIRO. 


D.  Javier  Sánchez, 
de  SERMA. 

D.  Antonio  González, 
de  COMPU  LOGIC  AL. 

Todos  ellos  se  ofrecieron  amable¬ 
mente  a  colaborar  con  nosotros.  No 
sólo  en  el  estudio  de  los  resultados  de  la 
encuesta,  sino  también  en  los  comenta¬ 
rios  adicionales.  Las  conclusiones  de  las 
diferentes  entrevistas  mantenidas  fueron 
muy  parecidas,  por  lo  que  pasamos  a 


U.  Juan  Manuel  Urraca ,  Director  de  COMMODORE 
WORLD  y  D.  Antonio  Peinado  de  PROEINSA. 


comentar  globalmente  las  mismas. 

En  contestación  a  la  primera  pre¬ 
gunta,  los  entrevistados  coincidieron  en 
señalar  que  estaban  de  acuerdo  con  los 
resultados  obtenidos  por  sus  programas. 
Aunque  D.  Carlos  Lázaro,  señaló  que 
su  programa  COMMANDO  no  había 
obtenido  en  el  apartado  “El  mejor  juego 
de  todos  los  tiempos”  la  proporción 
correspondiente  a  sus  ventas  reales, 
para  el  resto,  las  clasificaciones  son  fiel 
reflejo  de  los  gustos  del  usuario  medio  y 
de  las  ventas  realizadas. 

La  valoración  que  se  puede  hacer  de 
la  aparición  de  programas  recientes,  es 
muy  particular  para  cada  caso.  En  gene¬ 
ral,  todos  los  entrevistados  coincidían 
en  señalar  la  caída  de  los  precios  y  la 
avalancha  de  programas,  como  causas 
del  escaso  conocimiento  de  los  últimos 


programas  de  juegos.  En  especial  se 
hacía  referencia  al  compás  de  espera 
establecido  desde  el  momento  del  anun¬ 
cio  de  baja  de  precios,  hasta  la  materia¬ 
lización  real.  Además,  los  usuarios  se 
han  visto  afectados  por  la  gran  avalan¬ 
cha  de  títulos  aparecidos  en  el  mercado; 
cuestión  que  también  afecta  a  la  calidad 
de  los  juegos. 

El  descenso  de  calidad  es  un  tema  que 
preocupa  a  todos.  Se  coincide  en  reco¬ 
nocer  que  las  posibilidades  actuales  de 
los  programadores  son  enor¬ 
mes,  pero  estos  se  dedican  a 
terminar  programas  para 
comenzar  otros  nuevos,  en 
una  carrera  sin  fin. 

Como  consecuencia  de  la 
velocidad  de  producción  y 
comercialización,  los  temas 
de  los  juegos  se  repiten,  la 
originalidad  brilla  por  su 
ausencia  y  en  general  los 
nuevos  programas  no  supe¬ 
ran  a  sus  antecesores.  Por 
supuesto  no  todo  el  mundo 
coincidía  plenamente  con 
estas  afirmaciones.  Desde  el 
punto  de  vista  de  don  Fer¬ 
nando  Navarro,  de  Dro 
Soft,  la  línea  seguida  por  los 
programadores  de  Master- 
tronic  ha  mantenido  la  cali¬ 
dad  de  los  programas  sin 
dejarse  influenciar  por  la 
caída  de  precios.  Esta  caída 
de  precios,  matizaba  el  señor 

_  Navarro,  ha  servido  tam- 

ORE:  bién  para  frenar  la  desmesu¬ 

rada  producción  de  pro¬ 
gramas.  Se  produce  menos, 
se  da  mejor  publicidad  a  los 


JUEGOS  DE  REGALO 
PARA  NUESTROS  LECTORES 

Las  empresas  DRO  SOFT  y  PRO¬ 
EINSA.  prestigiosas  casas  de  software, 
nos  han  ofrecido  un  montón  de  sus 
excelentes  juegos.  Estos  juegos  serán  sortea¬ 
dos  entre  los  lectores  que  han  respondido  a 
nuestra  encuesta. 

Los  programas  serán  enviados  a  los  afor¬ 
tunados  a  lo  largo  de  este  mes.  Esperamos 
que  disfrutéis  durante  este  verano  con  los 
juegos  que  os  correspondan.  La  lista  de 
ganadores  del  sorteo  podéis  encontrarla  en  la 
página  ocho.  Enhorabuena  a  todos. 
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El  MEJOR  JUEGO  de  todos  los  tiempos: 


% 

•  MISION  IMPOSIBLE  19 

•  ONE  ON  ONE  11 

•  ELITE  8 

•  URIDIUM  5 

•  EXPLODING  FIST  4 

•  SKYFOX .  4 


•  ARCHON  „ 

•  TRIVIAL  PURSUIT 

•  CREEN  BERET 

•  SILENT  SERVICE 

•  Otros 


juegos  y  se  mantienen  los  títulos  más 
tiempo  en  el  mercado. 

Siguiendo  el  comentario  del  excesivo 
número  de  títulos,  todos  los  entrevista¬ 
dos  coinciden  en  dar  este  argumento 
como  explicación  lógica  al  gran  porcen¬ 
taje  del  apartado  “otros”.  Don  Carlos 
Lázaro,  de  la  empresa  Zafiro,  nos  decía 
que  según  su  opinión,  la  mayoría  de  los 
consumidores  de  programas  de  juegos 
son  niños  y  jóvenes,  con  pocos  recursos 
económicos  y  pocos  juegos  en  su  haber. 
Esto  lleva  a  una  diseminación  de  los 
votos  entre  muchos  programas  diferen¬ 
tes.  Por  otra  parte,  don  Antonio  Pei¬ 
nado,  de  Proein  Soft  Line,  nos  indicaba 
que  las  promociones  publicitarias  de 
juegos  basados  en  películas  eran  muy 
importantes,  y  esto  influye  decisiva¬ 
mente  en  la  diseminación  de  votos. 

Con  respecto  a  los  juegos  más  vota¬ 
dos  de  Commodore  y  los  mismos  pro¬ 
gramas  en  las  versiones  de  otros  orde¬ 
nadores,  la  opinión  general  es  que  los 
buenos  juegos  de  un  ordenador  son 
siempre  buenos,  sea  cual  sea  la  versión 
analizada.  Pero  todos  sabemos  que  no 
todos  los  ordenadores  tienen  las  mismas 
capacidades  gráficas  y  de  sonido.  Como 
máquina  todos  los  entrevistados  coinci¬ 
den  en  señalar  al  C-64  como  el  mejor 
ordenador  del  mercado  en  su  tipo.  Así, 
don  Fernando  Navarro  comentaba  que 
su  empresa  (Dro  Soft)  comenzó  comer¬ 
cializando  software  para  Commodore  y 
que  siempre  han  sido  el  ordenador  y  los 
programas  de  mayor  calidad. 

Por  último  algunos  entrevistados 


señalaron  las  notables  ausencias  de 
algunos  títulos,  entre  los  más  votados. 
Así,  por  ejemplo,  Realm  of  Imposibility 
es  un  programa  antiguo  de  alta  calidad, 
al  cual,  quizá  por  la  sencillez  de  los  grá¬ 
ficos,  los  lectores  apenas  han  concedido 
algunos  votos.  Lo  mismo  ocurre  con 
programas  como  Ghostbusters  o  M.U.L.E. 
Para  don  Antonio  Peinado,  de  Proein 
Soft  Line,  algunos  de  sus  últimos  lan¬ 
zamientos  son  ausencias  importantes 
atendiendo  a  la  calidad  del  juego,  aun¬ 
que  comprensibles  desde  el  punto  de 
vista  de  difusión  de  los  mismos,  ya  que 
no  ha  transcurrido  el  tiempo  suficiente. 

El  mejor  juego  de  todos  los  tiempos, 
según  nuestros  lectores,  es  MISION 
IMPOSIBLE  de  la  compañía  americana 
EPYX.  El  director  de  la  compañía  que 
distribuye  los  programas  de  la  citada 
casa  americana,  don  Antonio  González 
(Compulogical),  señaló  su  convenci¬ 
miento  de  la  objetividad  de  los  resulta¬ 
dos  de  la  encuesta  y  se  mostró  muy  satis¬ 
fecho  por  los  puestos  obtenidos  por  los 
programas  que  llevan  el  sello  de  EPYX. 

Por  nuestra  parte  sólo  queda  recalcar 
que  la  objetividad  y  pureza  de  los  resul¬ 
tados,  ha  sido  una  norma  tajante  desde 
el  primer  momento  en  que  se  planteó  la 
encuesta.  Quizá  algunos  programas  que 
han  aparecido  en  cinta  hayan  sido  poco 
votados  por  la  descompensación  del 
tiempo  de  carga  con  el  resultado  del 
juego  (este  puede  ser  el  caso  del  Labe¬ 
rinto  o  Realm  of  Imposibility  cuyas 

(Pasa  a  pág.  8) 


xiREiyn 


RESULTADOS  DE  LA  I 
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ENCUESTA  EN  SUS  DIFERENTES  CATEGORIAS  DE  JUEGOS 


1.— Simuladores  de  vuelo: 


% 

•  Solo  Flight  22 

•  Skyfox  1 7 

•  Flight  Simulator  II  14 

•  Dambusters  8 

•  Ace  of  Aces  7 

•  Jet  6 

•  Fighter  Pilot  5 

•  Ace  5 

•  Super  Huey  3 

•  Otros  13 


2.— Deportes: 

% 

•  One  on  One  29 

•  Summer  Games  II  23 

•  Winter  Games  9 

•  World  Games  6 

•  Hyper  Sports  5 

•  Two  on  Two  4 

•  International  Soccer  3 

•  Leader  Board  3 

•  Otros  1 8 


3.— Lucha: 


•  Exploding  Fist  42 

•  International  Karate  13 

•  Knight  Games  8 

•  Kungfu  Master  6 

•  Bruce  Lee  4 

•  Frank  Bruno’s  Boxing  3 

•  Otros  24 


4.— Arcade: 

% 

•  Uridium 

30 

•  Commando 

22 

•  Green  Beret 

12 

•  Rambo 

6 

•  Parallax 

5 

•  Zaxxon 

2 

•  Otros 

23 

5.— Plataformas: 

% 

•  Misión  Imposible 

39 

•  Cauldron 

11 

•  Monty  on  the  Run 

7 

•  Spindizzy 

3 

•  Ghost’n  Goblins 

3 

•  Asterix 

2 

•  Manic  Miner 

2 

•  Otros 

33 

6.— Carreras: 

% 

•  Pitstop  II  41 

•  Supercycle  25 

•  Pole  Position  7 

•  Revs  7 

•  Tour  de  France  5 

•  Speed  King  4 

•  Racing  Destruction  Set  3 

•  Otros  8 


7. — Aventuras: 

% 

•  Laberinto  18 

•  Borrowed  Time  16 

•  The  Hobbit  11 

•  Gremlins  5 

•  The  Pawn  4 

•  Alter  Ego  4 

•  Hulk  4 

•  Otros  38 


8.— Estrategia  y  acción: 


% 

•  Elite  22 

•  Silent  Service  16 

•  Hacker  15 

•  Archon  6 

•  Infiltrator  4 

•  PSI  5  4 

•  Otros  33 
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Todos  los  entrevistados  han  coincidido  en  señalar  al 
Commodore  como  la  mejor  máquina  del  mercado 
en  su  categoría.  Los  juegos  que  se  han  realizado 
han  aprovechado  las  especiales  prestaciones  de 
gráficos  y  sonido  que  aporta  el  C-64  y  los  demás 

Commodore. 

W 


(Viene  de  pág.  6) 

casas  distribuidoras,  Proeinsa  y  Dro, 
poeen  en  disco,  y  que  los  usuarios  de 


disco  quizá  desconociesen)  ha  podido 
dar  ventaja  a  programas  más  sencillos 
de  carga  y  de  tiempo  necesario  para 


empezar  á  matar  algo;  los  más  elitistas 
han  podido  perder  una  batalla  impor¬ 
tante  frente  a  la  mayoría.  También  exis¬ 
ten  magníficos  juegos  de  aventuras  o 
estrategia  cuyo  problema  de  idioma 
(suelen  estar  en  inglés)  habrá  frenado  a 
los  posibles  compradores. 

Los  resultados  están  ahora  en  vues¬ 
tras  manos  para  que  podáis  analizarlos, 
comentarlos  y  discutirlos.  Creemos  que 
serán  interesantes  para  todos.  Por 
supuesto  la  redacción  ni  se  identifica 
con  los  resultados  ni  los  desaprueba,  es 
imparcial.  Nuestros  lectores  han  sido  los 
jueces.  ■ 


LISTA  DE  PREMIADOS 


Santiago  Valdés  Allueva 

de 

Zaragoza 

Igor  Soto  Abanades 

de 

Segovia 

Pablo  Martín  Pacheco 

de 

Tenerife 

Carlos  Urtasun  Estanga 

de 

Pamplona 

Francisco  Lluch  Adell 

de 

Castellón 

José  Alexis  Paez  Thurgood 

de 

Soria 

Jesús  Frías  Reyes 

de 

Madrid 

Francisco  Inés  Villena 

de 

Zaragoza 

Pedro  Alonso  del  Río 

de 

Vizcaya 

José  Domingo  Solar  Gómez 

de 

Madrid 

Camino  Galán  Carrión 

de 

Lérida 

Santiago  Viera  Luzardo 

de 

Islas  Canarias 

Gustavo  Adolfo  Anaya  del  Río 

de 

Madrid 

David  Merino  García 

de 

Almería 

Carlos  Fuertes  Fuertes 

de 

Barcelona 

Francisco  Juve  Sansa 

de 

Barcelona 

Miguel  Fagrio  Díaz 

de 

Huelva 

Francisco  Javier  Zapata  Fuentes 

de 

Huesca 

José  Luis  Casas  Arias 

de 

Madrid 

Encarna  Ferrer  Pérez 

de 

Valencia 

José  Manuel  Sánchez  López 

de 

Huelva 

Luis  Larrea  Pérez  Ventana 

de 

La  Rioja 

Paula  Serrat  Olmos 

de 

Castellón 

Adolfo  López  Gabaldón 

de 

Toledo 

Xavier  Romero  Frías 

de 

Barcelona 

Carmelo  Alexis  García  Expósito 

de 

Sta.  Cruz  Tenerife 

Emilio  López  Mariño 

de 

Orense 

Luis  Mariano  García  Corral 

de 

Guadalajara 

Carlos  Alberto  Jiménez  Priego 

de 

Barcelona 

Manuel  Selas  Blanco 

de 

Orense 

Manuel  D.  Serrat  Olmos 

de 

Castellón 

Jaume  Corbella  Solé 

de 

Barcelona 

Begoña  López  Sanz 

de 

Zaragoza 

Salvador  Pou 

de 

Barcelona 

Oscar  Bastida  Reja 

de 

Barcelona 

Israel  Navarro  Santos  Juanes 

de 

Madrid 

Donald  Timson  Herranzrío 

de 

Madrid 

Rafael  Muñoz  Alfonso 

de 

Barcelona 

Román  Monge  Santamaría 

de 

Soria 

Francisco  Javier  Salcedo  Serra 

de 

Zamora 

Eduardo  Fernández  de  Gamboa 

de 

Vizcaya 

José  Manuel  Pérez  Fernández 

de 

Cádiz 

Francisco  A.  Pradas  Morales 

de 

Granada 

Gabriel  Miñarro  García 

de 

Barcelona 

Pedro  Antonio  Galindo 

de 

Zaragoza 

Raúl  Bernal  Bittner 

de 

Valladolid 

Enrique  Viseras  Marín 

de 

Murcia 

David  Felipe  Villa 

de 

Baleares 

Ricardo  Javier  Amenabar 

de 

Barcelona 

Daniel  González  Sánchez 

de 

Madrid 

Eduardo  M.  Cañedo  Pérez 

de 

Madrid 

Jorge  Majo  Munuera 

de 

Barcelona 

Félix  Martínez  Toledo 

de 

Cuenca 

1  Francisco  Javier  Escandell 

de 

Alicante 

Javier  Alvarez  Casabella 

de 

Pontevedra 

Andoni  Eguiluz  Morán 

de 

Bilbao 

Fernando  Febles  Armas 

de 

Tenerife 

Ann-Marie  Grainger 

de 

Málaga 

Carlos  Saona  Vázquez 

de 

Barcelona 

Marcelino  Santos  Aguadero 

de 

Vizcaya 

Mariano  Arias  Guirles 

de 

Madrid 

Antonio  Santos  Vivas 

de 

Badajoz 

Edelmiro  Covela  Nogueira 

de 

Orense 

Angel  Manuel  Chivite  Gil 

de 

Navarra 

Francisco  Torraldo  Molleja 

de 

Córdoba 

Plácido  Moreno  Alvarez 

de 

Cádiz 

Juan  Carlos  Gómez 

de 

Orense 

Juan  Carlos  Sánchez  Orihuela 

de 

Barcelona 

Guillermo  Link  Delgado 

de 

Alicante 

Jesús  Angulo  Calvo 

de 

Albacete 

Francisco  Ramos  García 

de 

Barcelona 

Laureano  Royo  Sirvent 

de 

Alicante 

Alfredo  Viguer 

de 

Barcelona 

Antonio  Francisco  Saa  Quintas 

de 

Almería 

Francesc  Guash  Ortiz 

de 

Barcelona 

María  de  los  Angeles  Amenabar 

de 

Barcelona 

Luis  Rovira  Roig 

de 

Barcelona 

Antonio  Vázquez  López 

de 

Madrid 

Jon  Imanol  Urrutia 

de 

Bilbao 

María  Luisa  Martín  Alvarez 

de 

Barcelona 

Luis  Astolfi  Antona 

de 

Madrid 

José  Miguel  Uña  de  la  Fuente 

de 

Alava 

Andrés  Mateo  Gañán 

de 

Burgos 

Francisco  Tessainer  García 

de 

Zaragoza 

José  Javier  Sánchez  Parido 

de 

Zaragoza 

Jesús  Díaz  Vázquez 

de 

Gijón 

Noel  Vallés  Domenech 

de 

Barcelona 

Luis  Casado  Rodríguez 

de 

Madrid 

Alfonso  Varela  Toro 

de 

Granada 

David  Noviembre  Naranjo 

de 

Huelva 

Víctor  David  González  David 

de 

Madrid 

Raquel  Esteban  Martín 

de 

Zamora 

Esteve  Genesca 

de 

Barcelona 

Manuel  Vega  López 

de 

Granada 

Miguel  A.  Santos 

de 

Vizcaya 

Javier  Martínez  Alvarez 

de 

Barcelona 

J.  Antonio  Villalobos  Pérez 

de 

Cádiz 

Jesús  García  Otero 

de 

La  Coruña 

Manuel  Romero  Fernández 

de 

Cádiz 

José  Ignacio  Vilas  Costa 

de 

Pontevedra 
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i  ¡ALTO  AQUI!! 

CONOZCA  LOS  MEJORES  PROGRAMAS  PROFESIONALES 
TECNICOS  Y  DE  GESTION,  PARA  COMMODORE  64-128 


GESTION  COMERCIAL  -  128 


w 


PROGRAMA  INTEGRADO  DE  FACTURACION  Y  CONTROL  DE  STOCKS 


Capacidades  de  ficheros  programables  por  el  usuario.  Mantenimiento  de  ficheros.  Control  de 
entradas/salidas  de  almacén.  Inventario  permanente.  Actualización  de  almacén.  Memoriza¬ 
ción  y  emisión  de  albaranes.  Facturación  de  albaranes  por  cliente  con  criterios  de  selección. 
Facturación  directa.  Emisión  de  recibos  y  letras  según  última  normativa.  Listado  de  ventas  con 
desglose  de  IVA.  Listados  definibles  por  el  usuario.  Paso  automático  a  CONTABILIDAD-128. 


CONTABILIDAD  - 128 


Basado  en  el  Plan  General  de  Contabilidad.  Hasta  1.500  cuentas  contables.  Niveles  progra¬ 
mables  (hasta  4).  Entradas  de  apuntes  con  control  de  cuadre  y  contrapartida  automática. 
Posibilidad  de  recomponer  apuntes.  Posibilidad  de  guardar  diarios  pendientes  de  actualizar. 
Extractos  por  pantalla  e  impresora  y  por  grupos  de  cuentas.  Balance  de  sumas  y  saldos  y 
situación.  Cuenta  de  explotación.  Gestión  de  IVA.  Listados  oficiales  de  IVA  soportado  y 
repercutido,  80  columnas  con  cualquier  monitor.  Un  único  disco  de  trabajo.  Gestiona  varias 
contabilidades.  Conexión  con  GESTION  COMERCIAL  128. 


ESTRUCTURAS 

Calcula  pórticos  planos  de  hormigón 
armado.  Calcula  los  esfuerzos  para  las 
tres  hipótesis  verticales,  viento  y  sismo. 
Armado  total  de  vigas  y  pilares.  Cuadro 
de  pesos  de  hierro.  Cuadro  cúbico  de 
hormigón.  Listado  de  todos  los  esfuer¬ 
zos  en  el  armado. 

0  25.000 

FACTURACION 

Programa  de  facturación  directa.  Fi¬ 
chero  de  artículos  y  clientes.  Diarios  de 
ventas.  Desglose  de  Impuestos.  Emi¬ 
sión  de  recibos.  Varias  versiones. 

0  15.000 


Programa  de  mediciones  y  presupues¬ 
tos  de  obra  totalmente  programable 
por  el  usuario.  Listado  de  mediciones  y 
presupuesto  por  partidas.  Posibilidad 
de  ajuste  automático  de  presupuesto. 

0  25.000 


STOCKS 

Fichero  de  artículos  y  proveedores. 
Control  de  entrada-salida  de  almacén. 
Actualización  automática.  Inventario 
permanente.  Inventario  bajo  mínimos. 
Listados  varios. 

0  15.000 


CONTABILIDAD 

Basada  en  el  Plan  Contable  Español. 
300  ó  1.000  cuentas.  Contrapartida 
automática.  Extractos  por  pantalla  o 
impresora.  Balances  programables. 
Grupos  0  y  9.  Balance  de  situación  y 
cuenta  de  explotación  programable. 

0  25.000 


GESTION  CIAL-64 

Facturación  y  control  stocks.  1.000 
clientes,  2.000  artículos.  Entradas/Sa¬ 
lidas  almacén.  Inventario  permanente. 
Facturación  directa.  Emisión  de  reci¬ 
bos.  Paso  a  CONTABILIDAD  64. 


LOTO -64 

CALCULA  APUESTAS 
INFORMA  PROBABILIDADES 
ALMACENA  RESULTADOS 
REALIZA  ESCRUTINIO 
5.000  PTAS. 


LIDER  NACIONAL  EN  VENTAS 


'L'SJNFO,  SI 

SERVICIOS  DE  INFORMATICA 


(976)  226974-232961  Avda.  de  Goya,  8  -  50006  ZARAGOZA 


Este  programa  pretende  que  el  generador  de  sonido 
del  C-64  o  del  C-128  (el  SID)  deje  de  ser  un  misterio 

para  muchos. 

Máquina 
de  sonido 


De  entrada  en  la  pantalla 
aparece  un  esquema 
del  SID,  con  lo  que 
por  fin  podremos  ente¬ 
rarnos  de  lo  que  tiene 
por  dentro.  Esto  ya  es 
un  gran  paso.  Los  registros  de  sonido, 
esos  que  tienen  unos  bits  que  nunca 
hemos  sabido  para  qué  sirven,  se 
convierten  en  interruptores,  displays 
(como  los  de  las  calculadoras)  e 
“indicadores  luminosos”.  Podemos  pues 
ver  el  SID  y  “tocarlo”  con  un  sprite  ya 
muy  conocido  en  forma  de  mano-que- 
señala,  que  podemos  mover  con  el 
joystick  o  con  el  teclado.  Colocando  la 
mano  sobre  un  determinado  lugar  de  la 
pantalla  y  disparando,  activamos  una 
función  o  variamos  un  parámetro  del 
SID.  En  este  artículo  la  palabra 
“señalar”  significa  colocar  el  sprite  sobre 
un  lugar  y  pulsar  el  disparador.  Más 
tarde,  cuando  ya  dominemos  el  SID, 
podremos  usar  este  programa  para 
buscar  y  probar  efectos  sonoros  que 
podremos  aplicar  a  nuestros  programas. 

_ Sprite  y  teclado _ 

El  sprite  se  mueve  con  el  joy-2  o  con 
el  teclado  (la  barra  de  espacio  es  el 
disparador).  Para  mover  rápido,  mover 
y  disparar  a  la  vez.  El  teclado  lo 
usaremos  siempre  que  haya  que 
responder  INPUTs.  La  tecla  flecha-a-la- 
izquierda  es  la  tecla  de  escapada  que 
permite  salir  de  un  INPUT  sin 
modificar  nada. 


Gestión  de  discos 


El  programa  incluye  una  gestión  de 
discos  para  guardar  sonidos.  Así  no 
tendremos  que  empezar  desde  cero  cada 
vez  y  podemos  mantener  una  “sonidote- 
ca”  Al  hacer  RUN  y  después  de  la  carga 
de  unos  ficheros,  entramos  en  la 
pantalla  de  gestión  de  discos  que  no 
tiene  ningún  problema.  La  función 
reemplazar  se  consigue  señalando 
primero  el  nombre  del  fichero  y  luego 
SAVE.  Al  usar  el  comando  SAVE  se 
nos  pide  por  INPUT  un  mensaje  que  se 
guardará  junto  con  los  sonidos  y  que 
más  tarde  podremos  releer  al  hacer 
LOAD.  La  función  COMANDO, 
además  de  los  comandos  de  disco 
normales,  admite  el  comando  para 
obtener  el  error  del  canal  15,  o  T  para 
obtener  el  directorio  de  los  ficheros 
borrados.  Los  ficheros  del  programa  se 
guardan  con  el  prefijo  “PS.”  delante  (así 
el  fichero  HOLA  es  en  realidad  PS. HO¬ 
LA)  y  al  borrarlos  o  sustituirlos,  el  pro¬ 
grama  se  limita  a  renombrarlos  con  el 
prefijo  “PS!”  delante.  Para  recuperar  un 
fichero  borrado  enviar  el  comando 
RO:PS.FICHERO=PS!FICHERO.  Pa¬ 
ra  recuperar  un  fichero  sustituido 
RO:  PS.  FIC  HER02=PS!  FICHERO. 
Siempre  tenemos  la  última  versión  de 
un  programa  (PS.)  y  la  anterior  (PS!), 
las  demás  versiones  sí  que  se  borran  de 
verdad. 

Señalando  SONIDO  entramos  en  el 
esquema  del  SID. 
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Por  Rafael  López  Rubio 


C-64,  unidad  de  disco, 
impresora  opcional. 


tt 

En  general,  los 
mejores  efectos 
sonoros  se 
consiguen  con 
variación  dinámica 
de  los  parámetros 
pero  de  manera 
estudiada,  es  decir, 
usando  las 


Commodore  World  /II 


Esquema  del  SID 


Salvo  la  columna  de  la  izquierda  de 
funciones  y  el  “panel”  de  TIMER  y 
MEMORIA,  el  resto  representa  los 
controles  del  SID. 

Columna  de  funciones 


Como  las  funciones  van  por  dibujos 
es  intuitivo  saber  lo  que  hacen.  El 
rectángulo  flecha  arriba-letra  i-flecha 
abajo  (que  está  repartido  por  la 
pantalla)  permite  modificar  los  displays 
por  incremento,  INPUT  o  decremento. 
La  impresora  y  la  TV  para  obtener  los 
valores  de  los  parámetros  del  SID,  que 
luego  convertiremos  en  DATAs  en 
nuestros  programas.  Antes  de  obtenerlos, 
hemos  de  ajustar  la  línea  que  subraya 
las  letras  M,  A,  P,  D  y  H.  M  =  valores 
de  los  sonidos  en  memoria.  A  =  valores 
del  sonido  actual  (el  que  vemos  y 
oímos).  P  =  listado  de  los  pasos.  Luego 
veremos  cómo  guardar  sonidos  en 
memorias  y  reproducir  estas  memorias 
según  unos  pasos,  para  así  obtener 
sonidos  compuestos.  Por  último  D  da 
los  valores  en  decimal  y  H  en 
hexadecimal. 

El  dibujo  de  un  teclado  que  hay  abajo 
nos  permite  introducir  los  valores  de  los 
registros  del  SID  directamente  a  través 
de  INPUTs.  Esto  va  muy  bien  para 
ensayar  los  programas-ejemplo  que 
dan  los  libros.  Con  este  fin  le  he  puesto 
unas  ayudas:  se  puede  introducir  el 
valor  en  hexadecimal  con  una  El  delante 
o  en  binario  con  una  B;  introducir  una 
L  para  limpiar  (llenar  de  ceros)  el  SID; 
colocarnos  en  un  registro  introduciendo 
R  seguida  del  número  de  registro 
(relativo  o  absoluto),  por  ejemplo,  R5, 
R54277,  RHOA,  RHD40B;  avanzar  o 
retroceder  n  registros  con  [SPCJn  o  -n; 
y  colocarnos  al  comienzo  de  cada  voz  o 
del  filtro  introduciendo  VI,  V2,  V3  o 
VF.  Si  pulsamos  return  solamente, 
pasamos  al  siguiente  registro  sin 
modificar  el  actual. 

El  diskette  de  abajo  es  para  gestión  de 
discos.  El  ángel  es  el  “limbo”  donde  van 
a  parar  los  sonidos  “machacados”.  Al 
usar  el  programa,  muchas  veces  nos 
aparecerá  un  mensaje  en  forma  ‘sonido 
X  a  limbo’,  el  sonido  X  será  entonces 
recuperable  si  señalamos  el  ángel.  Esta 
función  evita  las  pérdidas  “tontas”  de 
sonidos  que  quizá  nos  ha  costado 
trabajo  elaborar,  pero  eso  sí,  hay  que 
darse  cuenta  en  seguida,  los  sonidos  no 
duran  mucho  ahí. 

El  interrogante  de  abajo  muestra  el 
mensaje  grabado  en  el  SAVE. 

_ Esquema  del  SID 

No  perderé  tiempo  explicando  cada 
uno  de  los  componentes  del  SID. 
Pienso  que  lo  mejor  es  que  cada  cual 
aprenda  con  el  método  más  fácil  que 
hay:  ir  probando  y  a  ver  qué  pasa. 


u 

Una  vez  obtenido 
un  sonido  que  nos 
guste  y  que 
queramos  aplicar  a 
un  programa, 
podemos  obtener 
los  DATAs. 
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Aclararé  sin  embargo,  para  los  que  ya 
conozcan  el  SID  y  hayan  reconocido  ya 
sus  partes,  que  las  frecuencias  se  dan  en 
Hertzs  y  la  amplitud  (AM)  de  la  onda 
rectangular  en  tanto'por  ciento,  de  tal 
manera  que  el  50  por  ciento  es  aproxima¬ 
damente  una  onda  cuadrada.  Al 
amplificador  amarillo,  que  contiene  el 
display  de  volumen,  llegan  las  3  voces  y 
la  voz  exterior  a  través  del  filtro 
(representado  como  una  f),  de  tal 
manera  que  si  el  interruptor  que  está  al 
lado  de  la  f  está  cerrado,  la  voz  pasa  por 
el  filtro.  Los  tiempos  A,  D,  S,  R  los 
podemos  saber  señalando  las  mismas 
letras  al  lado  de  los  displays.  Estos 
displays  no  son  modificadles  por 
INPUT,  en  cambio  el  display  de 
frecuencia  admite  notas  musicales, 
escribiendo  N,  seguida  de  la  octava  (0- 
7)  y  la  nota  acabada  en  S  si  es  sostenida 
(SOL  sostenido  es  SOS).  Por  ejemplo 
N3RE,  NOSOS,  N7LA,  N4MIS,  etc. 
Los  “indicadores  luminosos”  VI,  V2  y 
V3  sirven  para  encender  y  apagar  las 
voces.  Veréis  que  el  bit  de  test  no  está 
representado,  no  es  necesario  pues  el 
ruido  no  se  mezcla  con  las  demás  ondas. 
Los  amplificadores  M  son  los  modula¬ 
dores  de  la  onda  triangular  y  la  salida 
SINCRO  los  sincronizadores.  Para 
saber  qué  voces  afecta  hay  que  seguir  las 
“pistas”  que  salen  y  entran  de  ellos. 
Además  los  interruptores  de  sincroniza¬ 
ción  tienen  una  flecha  que  señala  la  voz 
afectada. 


Funciones  E-0 


Algunos  displays  tienen  un  cuadrado 
blanco  a  la  derecha.  Al  señalarlo 
aparece  alternativamente  una  E  y  una  O. 
Esto  indica  que  el  parámetro  será 
afectado  por  la  envolvente  o  por  el  tipo 
de  onda  de  la  voz  3.  Es  la  famosa 
variación  dinámica  de  los  parámetros. 
Si  señalamos  el  cuadrado  blanco  en 


modo  INPUT,  podemos  introducir  un 
factor  de  0  a  15,  para  ajustar  la 
influencia  de  la  voz  3  sobre  el 
parámetro.  Desgraciadamente  el  SID 
tiene  los  registros  de  salida  de  las 
funciones  E-O,  pero  no  los  de  entrada, 
o  sea,  no  hay  bits  que  permitan 
modificar  un  determinado  parámetro  en 
forma  dinámica,  ni  un  registro  donde 
colocar  el  factor,  y  hay  que  hacerlo  a 
base  de  PEEK-POKE.  La  Guía  de 
Referencia  explica  esto  en  la  página 
161.  (Para  los  que  ya  lo  entiendan  :  E  es 
el  registro  54300  y  0  el  54299.  Un  factor 
0  coloca  la  lectura  directamente  en  el 
byte  bajo  del  parámetro  afectado,  un 
factor  15  en  el  byte  alto  y  un  factor 
1-14  da  un  valor  V  =  d+PEEK  (registro 
E-O)*  factor,  siendo  d  el  valor  displa- 
yado.  Los  parámetros  afectados  se 
actualizan  por  interrupción  60  veces  por 
segundo). 

Timer  y  memoria 

Este  “panel”  no  pertenece  al  SID, 
sino  que  es  parte  del  programa. 
Podemos  activar  el  “timer”  — es  que 
“temporizador”  no  cabía —  señalando  el 
mismo  “indicador  luminoso”  que  pone 
TIMER.  Como  vemos  cada  voz  tiene 
dos  tiempos,  que  cuentan  en  jiffies,  el 
primero  es  el  tiempo  de  encendido  y  el 
segundo  de  apagado,  el  segundo  menos 
el  primero  da  el  tiempo  que  la  voz  estará 
encendida.  Cuando  el  contador  llega  al 
tiempo  más  alto,  pasa  a  contar  el 
tiempo  T  de  transición,  y  luego  vuelve  a 
empezar. 

El  panel  de  memoria  contiene  tres 
displays:  el  indicado  con  una  M,  de 
memorias,  para  guardar  y  reproducir 
sonidos  (señalar  las  flechas)  en  la 
memoria  que  indique  el  display.  El 
indicado  como  P  es  el  de  pasos  que 
muestra  el  número  de  paso  y  abajo  el 
display  PM  que  muestra  la  memoria 
asociada  al  paso.  Al  señalar  el 
“indicador  luminoso”  MEMORIA,  el 
programa  empieza  a  incrementar  los 
pasos  de  uno  en  uno  y  reproduce  las 
memorias  asociadas,  hasta  que  encuentra 
una  memoria  0,  entonces  vuelve  a 
empezar.  Para  asociar  una  memoria  a 
un  paso,  señalar  las  mismas  letras  PM, 
modificar  el  display  PM,  y  señalar  la 
flecha  que  le  ha  aparecido  al  lado.  Si 
más  tarde  queremos  borrar  o  insertar 
memorias,  podemos  señalar  el  display 
que  pasos  en  modo  INPUT  e  introducir 
una  B  o  una  I  respectivamente. 

Si  señalamos  la  R  que  hay  a  la 
derecha,  se  “iluminará”  y  a  partir  de 
entonces  las  memorias  se  reproducirán 
automáticamente  al  modificar  los 
displays.  Hay  que  tener  cuidado  con 
este  modo  porque  el  limbo  no  funciona. 
Si  señalamos  la  misma  letra  M  del 
display  de  memorias,  activaremos  el 
modo  de  autoincremento  de  los  displays 
al  introducir  una  memoria. 
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Sonidos 


Ahora  que  sabemos  ya  de  lo  que 
disponemos  podemos  empezar  a  inves¬ 
tigar.  Para  los  que  no  tengan  ni  idea  de 
cómo  va  el  SID  les  dará  unas  pistas: 
Limpiar  el  sonido,  colocar  todos  los 
parámetros  S  a  15,  el  volumen  a  15,  y 
seleccionar  para  cada  voz  la  onda 
triangular  (el  interruptor  al  lado  del 
display  FR),  activar  las  voces  señalando 
VI,  V2  y  V3  y  modificar  los  displays 
FR,  hasta  obtener  sonido.  A  partir  de 
aquí,  todo  vuestro. 

Una  vez  obtenido  un  sonido  que  nos 
guste  y  que  queramos  aplicar  a  un 
programa,  podemos  obtener  los  DATAs. 
Para  ello  encendemos  las  voces, 
señalamos  la  impresora  e  introducimos 
una  nota  que  diga  ‘encendidas’,  esta 
nota  se  imprime  antes  de  los  valores. 
Luego  apagamos  las  voces  y  hacemos  lo 
mismo  con  la  nota  ‘apagadas’.  Los 
valores  que  salen  listados  son  los  26 
registros  del  SID,  después  de  éstos 
vienen  los  tiempos  del  timer,  los 
parámetros  afectados  por  la  función  E- 
O,  el  factor  y  6  bytes  sin  uso.  Sólo  nos 
interesan  por  tanto  los  25  primeros 
números.  Comparamos  los  valores 
‘encendidos’  y  ‘apagados’  y  rodeamos 
con  un  círculo  aquellos  que  sean 
distintos.  Tienen  que  ser  3  valores 
distintos,  que  son  los  que  hay  que 
pokear  para  encender  y  apagar  las 
voces,  el  resto  basta  con  pokearlos  una 
vez.  Recordar  que  los  25  registros  del 
SID  van  de  54272  a  54296. 

El  programa  DEMO  da  un  ejemplo 
de  transcripción.  Copiad  este  programa 
y  haced  RUN.  Luego  introducid  los 
datas  en  el  programa  ‘prueba  de 
sonido’,  colocad  el  display  FR  de  la  voz 
1  en  modo  O  y  los  tiempos  de  la  voz  2 
en  1  y  15  y  el  de  transición  a  40.  Activad 
el  timer  y  comparar  el  sonido,  veréis  que 
es  el  mismo.  Además  el  programa 
DEMO  da  un  ejemplo  de  cómo  usar  las 
funciones  E-O  en  BASIC. 

Para  guardar  sonidos  primero  hemos 
de  ajustar  el  display  de  memorias  hasta 
la  memoria  que  queramos  salvar.  En  el 
disco  se  guardará  el  mensaje  que  le 
damos,  el  sonido  actual,  los  pasos,  y  las 
memorias. 


Ampliaciones  y  modificaciones 


En  las  dos  pantallas  de  trabajo  hay 
unos  huecos  que  dan  el  mensaje  de 
‘FUNCION  PROGRAMABLE”.  En  la 
pantalla  del  SID  hay  9  huecos  que  al 
señalarlos  saltan  respectivamente  (en 
orden  de  lectura)  a  las  líneas  BASIC  225 
a  233.  En  estas  líneas  podemos  colocar 
nuestro  GOTO  que  apunte  a  nuestra 
rutina.  Esta  rutina  deberá  acabar  en  un 
GOTO  1000,  ya  que  en  esta  línea  está 
la  rutina  SYSZ7,  que  es  la  única  que 
detecta  si  disparamos  o  no.  También 
podemos  acabar  con  un  GOTO  1001  si 
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Para  guardar 
sonidos  primero 
hemos  de  ajustar  el 
display  de  memoria 
hasta  la  memoria 
que  queramos 
salvar. 


queremos  que  la  función  añadida  sea 
repetitiva  mientras  mantenemos  pulsado 
el  disparador.  Podemos  rellenar  estos  9 
huecos  con  caracteres  si  modificamos 
los  PRINTS  de  la  línea  900,  y  con  colo¬ 
res,  si  modificamos  los  datas  00  de  las 
líneas  950-955.  Podemos  usar  los  carac¬ 
teres  inversos  (a  partir  de  35.850)  como 
caracteres  programados  para  hacer 
dibujos. 

En  la  pantalla  de  gestión  de  discos  se 
salta  (de  arriba  abajo)  a  las  líneas 
BASIC  244-251.  (No  quitar  de  estas 
líneas  el  Z(8)=xxx).  El  relleno  de  los 
huecos  se  hace  en  los  datas  de  las  líneas 
850-860,  aquí  no  hay  colores  ni 
caracteres  programables.  En  este  caso 
acabaremos  nuestras  rutinas  con  un 
GOTO  1002  (GOTO  1006  repetitiva),  o 
un  GOTO  1004  si  queremos  dejar  un 
mensaje  a  la  salida  de  la  función.  Si 
queremos  usar  el  nombre  de  algún 
fichero  en  nuestras  rutinas,  éste  se 
colocará  en  la  variable  Z$(14)  al 
señalarlo.  Por  tanto  nuestras  rutinas 
deberán  comenzar  con  una  línea: 

IF  Z$(  1 4)=““T HEÑI 000 

para  evitar  que  procese  una  cadena 

vacía. 

Rutinas  y  mapa  de  memoria 

Todas  las  variables  que  usa  el 
programa,  excepto  las  señaladas  en  la 
línea  34,  usan  la  letra  Z.  Por  tanto  en 
nuestras  rutinas  añadidas  no  hay  que 
usar  variables  con  Z  ni  las  indicadas  en 
la  línea  34.  Esto  es  lo  que  tenemos 
disponible  para  nuestras  ampliaciones: 

Línea  35.  Límite  del  BASIC  (32767). 
Este  límite  lo  podemos  variar  para  dejar 
espacio  a  nuestras  rutinas  C.M.  A  partir 
de  32768  está  ocupado  por  el  programa. 
Nuestras  rutinas  CM  se  cargarán 
automáticamente  si  les  damos  los 
nombres  correlativos  desde  6.PDS  a 
9.PDS. 

Línea  70.  Para  adaptar  la  unidad  de 
discos  y  los  prefijos  de  los  ficheros  del 
programa. 


Línea  80.  Z(30)  contiene  el  número  de 
memorias  (Máximo  212). 

Líneas  225-233.  Ampliaciones  gestión 
de  discos. 

Líneas  244-251.  Ampliaciones  esque¬ 
ma  del  SID. 

Líneas  350-379.  Para  modificar  la 
pantalla  de  presentación  para  que 
aparezca  nuestro  nombre  como  autores 
de  una  ampliación. 

Línea  410.  Quitar  el  REM  y  los 
ficheros  .PDS  se  cargarán  a  partir  del 
número  que  indique  K  (Usar  sólo 
durante  el  proceso  de  ampliación). 

Línea  550.  Salto  a  la  rutina  10010. 
El  programa  pasa  por  esa  rutina 
después  de  cargar  las  imágenes  y  antes 
de  inicializar  el  programa.  Cambiar  el 
POKE  que  hay  por  POKE49205,120 
para  anular  la  tecla  STOP. 

Líneas  850-860.  Ampliaciones  gestión 
de  discos. 

Líneas  900-950.  Ampliaciones  esque¬ 
ma  del  SID. 

GOSUB  1.  Es  un  PRINT  AT.  Si 
queremos  escribir  HOLA  en  la  columna 
20  de  la  línea  10  haremos  X=20  :  Y=10 
:  GOSUB  1  :?“HOLA”. 

GOSUB  2.  Imprime  un  mensaje  en  la 
línea  inferior  de  las  pantallas  y  lo  deja 
fijo.  El  mensaje  ha  de  estar  en  Z$(0). 

GOSUB  3.  Imprime  el  mensaje  en 
Z$(0),  le  añade  ‘, DISPARA’  y  espera  a 
que  se  dispare  o  pulse  una  tecla. 

GOSUB  4.  Imprime  el  error  de  disco 
y  espera  a  que  se  dispare.  El  error  estará 
en  I  y  el  status  en  Z. 

GOSUB  5.  Imprime  Z$(0)  durante  4 
segundos. 

GOSUB  6:  Pone  y  quita  el  interro¬ 
gante  a  la  mano. 

GOSUB  7:  Pone  el  sueño. 

GOSUB  8:  Quita  el  sueño  y  pone  la 
mano. 

GOSUB  9:  Es  la  rutina  INPUT.  La 
pregunta  estará  en  Z$(0),  en  Z(9)  el 
número  máximo  de  caracteres  admitidos, 
en  X  la  columna  en  que  se  coloca  el 
cursor,  en  Z$(  1 6)  una  respuesta 
aconsejada  (o  sea,  la  típica  pregunta  que 
viene  con  respuesta).  Solamente  en  la 
pantalla  de  gestión  de  discos  haremos 
Z(  10)=  1  para  ampliar  el  margen  de 
caracteres  ASCII  que  aceptará  el 
INPUT.  La  respuesta  al  INPUT  se  da 
en  Z$(  1 5).  Si  Z$(  1 5=“  ”  entonces  hay 

que  abandonar  la  rutina  sin  modificar 
nada,  pues  el  usuario  (normalmente  uno 
mismo)  ha  pulsado  la  tecla  de  escapada. 

GOSUB  14:  Igual  que  GOSUB  4, 
pero  no  espera.  El  mensaje  se  muestra  4 
segundos. 

GOSUB  15:  Consulta  el  error  de 
disco.  Devuelve  en  I  el  error  y  en  Z  el 
status. 

GOSUB  16:  PEEK  bajo  ROM  BA¬ 
SIC.  Hay  que  dar  en  I  el  registro  y 
devuelve  en  I  el  valor  del  registro. 

GOSUB  17:  Anula  los  sprites.  Al 
acceder  al  disco  hay  que  desactivar  los 
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sprites,  si  no  el  programa  se  puede 
“colgar”. 

GOSUB  18:  Activa  los  sprites. 

GOSUB  19:  Obtiene  el  directorio. 

GOSUB  20:  Da  como  resultado  en  1 
el  número  de  bloques  libres  del  disco. 

GOSUB  22:  Quita  sonido. 

GOSUB  23:  Pone  sonido. 

GOSUB  24:  Inicializa  el  disco. 

GOSUB  6480:  Traslada  el  Sonido 
Actual  al  SID  y  actualiza  todos  los 
valores  en  la  pantalla. 

SYS  Zl,  línea:  Equivale  a  un  RES¬ 
TORE  con  número  de  línea. 

SYS  Z2,  inicio,  nueva  dirección, 
longitud:  Traslada  dos  zonas  de 
memoria  que  no  se  solapen  (incluso 
bajo  ROM  BASIC). 

Mapa  de  memoria: 

1024-1943:  Tabla  de  saltos.  Líneas  a 
las  que  salta  el  BASIC  al  señalar  un 
punto  en  la  pantalla  (5.PDS). 

2048-32767:  BASIC  (y  CM  de  las 
ampliaciones). 
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Los  sonidos 
esporádicos  que  se 
oyen  al  conectar  el 
TIMER  se  deben  al 
tiempo  que  tarda 
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SID  en  pantalla. 
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32768-33791:  Pantalla  de  gestión  de 
discos. 

33792-34815:  Pantalla  del  esquema 
del  SID.  (4.PDS). 

34816-36351:  Juego  de  caracteres 
(desde  35032  a  35839  están  programados 
en  3.PDS). 

36352-36863:  Sprites. 

36864-37863:  Colores  de  la  pantalla 
del  esquema  del  SID. 

(Los  sprites  y  los  colores  están  en 
2.PDS). 

37864-37913:  Limbo. 

37950-37999:  Sonido  actual. 

38000-38498:  Pasos. 

38500-49099:  Espacio  libre  para  212 
memorias. 

49100-49151:  Limbo  temporal. 

49152-53126:  Código  Máquina.  (0.PDS 
y  I.PDS). 

La  dirección  de  inicio  de  una 
memoria  M  es  38500+50*(M-l ).  Cada 
memoria  ocupa  50  bytes,  los  25 
primeros  son  el  sonido  en  sí.  Luego  hay 
14  bytes  para  los  tiempos  del  timer, 
luego  5  bytes  en  forma  de  9  nibbles  para 
las  funciones  E-O  y  un  nibble  para  el 
factor,  y  6  bytes  libres  para  usar  en 
nuestras  ampliaciones. 

Final 


Como  recomendaciones  finales:  No 
usar  más  de  un  parámetro  afectado  por 
la  función  E-O  en  BASIC,  ya  que  no 
es  suficientemente  rápido.  Algunas 
veces  se  os  cortará  el  sonido,  esto  se 
deberá  principalmente  a  la  variación  del 
parámetro  S,  o  a  haber  mezclado 
ruido  con  otra  forma  de  onda  (introdu¬ 
ciendo  datos  por  INPUT).  Los  sonidos 
esporádicos  que  se  oyen  al  conectar  el 
TIMER  se  deben  al  tiempo  que  tarda  en 
actualizarse  el  SID  en  pantalla.  En 
general  todos  los  fallos  de  sonido  que 
tengáis  se  reproducirán  en  vuestro 
programa,  así  que  debéis  estudiar  la 
razón  (a  veces  los  interruptores  de 
sincronismo  hacen  cosas  raras  también). 
En  general  los  mejores  efectos  sonoros 
se  consiguen  con  variación  dinámica  de 
los  parámetros  pero  de  manera  estudia¬ 
da,  es  decir,  usando  las  memorias.  La 
velocidad  máxima  de  reproducción  de 
las  memorias  es  de  20  por  segundo 
(todo  el  TIMER  a  0),  esto  es  suficiente 
para  BASIC,  pero  no  sé  hasta  qué 
punto  puede  imitar  los  rápidos  bucles 
cerrados  en  CM.  Tened  presente  que  las 
memorias  se  reproducen  con  las  voces 
encendidas  o  apagadas  según  las 
hubimos  memorizado. 

Los  libros  consultados  para  hacer 
este  programa  y  que  vosotros  también 
podéis  consultar  son:  64  Interno,  Guía 
de  Referencia,  Programación  Avanzada 
C-64,  Código  Máquina  C-64  y  las 
revistas  de  Commodore  World.  (Gracias 
a  Lorenzo  Sánchez  Stewart  por  su 
ayuda  prestada).  ■ 


Cómo  teclear  los  listados 

Para  teclear  sin  problemas  todos  los  listados  que  componen  esta  “Máquina  de 
Sonido”  debes  seguir  los  siguientes  pasos: 


1.  Teclea  los  listados  1  al  9  por  este  orden,  utilizando  el  programa  corrector 
PERFECTO  que  está  al  final  de  la  revista.  Graba  siempre  las  versiones  antes  de 
probarlas,  pues  los  programas  GEN.O  a  GEN.6,  por  ejemplo,  se  autodestruyen  tras 
ejecutarse.  Para  evitar  esto,  coloca  un  “END”  en  la  línea  16.  Si  todos  los  datas  son 
correctos  el  programa  se  detendrá  sin  dar  “ERROR  EN  DATAS”.  Cuando  los 
tengas  todos  tecleados  el  directorio  del  disco  será  algo  así: 

3  "HEXPOKER"  PRG 

2  "GEN. 0"  PRG 

52  "GEN. 1 "  PRG 

18  "GEN. 2"  PRG 

12  "GEN. 3"  PRG 

13  "GEN. 4"  PRG 

14  "GEN. 5"  PRG 

88  "PRUEBA  DE  SONIDO"  PRG 

2  "DEMO"  PRG 


3  "HEXPOKER"  PRG 
2  "GEN. 0"  PRG 
52  "GEN. 1 "  PRG 
18  "GEN. 2"  PRG 

12  "GEN. 3"  PRG 

13  “GEN. 4"  PRG 

14  "GEN. 5"  PRG 
88  "PRUEBA  DE  SONIDO"  PRG 
2  "DEMO"  PRG 
1  "0. PDS"  PRG 

15  "I.PDS"  PRG 
5  "2. PDS"  PRG 

4  "3. PDS"  PRG 
4  "4. PDS"  PRG 
4  "5. PDS"  PRG 


2.  Para  comenzar  a  utilizar  tu  “Máquina  de  Sonido”  carga  y  ejecuta  el 
programa  basic  “PRUEBA  DE  SONIDO”. 

3.  Cuando  hayas  comprobado  que  todo  funciona,  puedes  borrar  los  programas 
GEN.O  a  GEN.5  para  que  te  quede  más  espacio  en  el  disco  para  tus  ficheros.  No 
obstante,  siempre  conviene  guardar  una  copia  en  algún  otro  lugar,  por  si  acaso. 

Como  habréis  podido  comprobar,  hemos  tenido  que  cambiar  el  formato  de  estos 
dos  listados,  para  reducirlos  un  poco  más  y  que  no  nos  ocuparán  demasiado  espacio 
en  la  revista.  Aún  así,  se  siguen  viendo  suficientemente  bien  y  pueden  teclearse  sin 
problemas.  ■ 


— 14/Commodore  World 


PROGRAMA:  HEXPOKER  LISTADO  1 

10 

REM  HEXPOKER 

.  198 

1  1 

REM 

(0  1986  BY  ALVARO  IBANEZ 

.  159 

12 

REM 

(0  1986  BY  COMMODORE  WORLD 

.  22 

13 

.245 

14 

FOR  I 

=828T0924 : RE ADA : POKE I , A : NE  X  T 

.  148 

15 

.247 

16 

DATA 

32 , 253 ,174,32,158,173,32 

.  16 

17 

DATA 

247,183,132,251 , 133,252,32 

.  145 

18 

DATA 

253,174,32,139,176,224,0 

.  118 

19 

DATA 

240,69,133,253,134,254, 160 

.213 

20 

DATA 

0,177, 253 ,201,2, 240 , 2 

.226 

21 

DATA 

208,55,133,2,200,177,253 

.  169 

22 

DATA 

1 70 , 200 ,177, 253 ,133, 254 

.204 

23 

DATA 

1 34 , 253 ,160,0,177, 253 , 32 

.97 

24 

DATA 

137,3,24,42,42,42,42,133 

.  28 

25 

DATA 

3,200,177,253,32,137,3 

.79 

26 

DATA 

69,3,160,0,145,251,96 

.  138 

27 

DATA 

72,41,64, 208 ,5,104,56 

.83 

28 

DATA 

233 ,48,96,104,56, 233 , 55 

.  140 

29 

DATA 

96,162,22,76,58,164 

.65 

ATENCION'  ANTES  DE  EJECUTAR  LOS  PROGRAMAS 
GEN. 0  A  GEN. 5  HAY  QUE  CARGAR  Y  EJECUTAR 


EL  HEXPOKER*  DEL  LISTADO  1. 

PROGRAMA:  GEN. 0  LISTADO  2 

10  REM  GEN  PDS.0  .70 

11  :  .243 

12  A=49 1 52 : B=49232  .4 

13  FOR I =ATOB  .253 

14  READA$ : SYS828 , I , AS : S=S+VAL ( A* )  .126 

15  NEXT: IFS< >1299THENPRI NT "ERROR"  .213 

16  PQKE43 , 0: P0KE44 , 192  .238 

17  PQKE45 ,81: PQKE46 , 1 92  .205 

18  SAVE"0. PDS" , 8: END  .52 

19  :  .251 


100  DATA  20 , FD , AE , 20 , 9E , AD , 20 , A3 , B6 , 20 , BD , FF , 20 , FD  .92 

101  DATA  AE , 20 , 9E , B7 , 8A , 48 , 20 , FD , AE , 20 , 9E , B7 , 8A , A8  .73 

102  DATA  68 , AA , 20 , BA , FF , A9 , 00 , 78 , 20 , D5 , FF , 58 , 60 , 78  .164 

103  DATA  A9, 14, 8D, 14,03, A9,CD,8D, 15, 03, 58,78, A9,C0  .23 

104  DATA  8D, 19,03, 8D, 29,03, A9,4C,8D, 18,03, A9, 49, 8D  .30 

105  DATA  28,03, 58, A9, 01 ,60, 58, 40, 24,30, 3A  .125 


PROGRAMA:  GEN. 1  LISTADO  3 

10  REM  GEN  PDS. 1 

1 1  : 

12  A=49364 : B=53 1 26 

13  FORI=ATQB 

1 4  READAS : SYS828 , I , AS : S=S+ VAL ( A* ) 

15  NEXT: IFS< >691 76THENPRI NT "ERROR" 

16  P0KE43 ,212: P0KE44 , 1 92 

17  P0KE45 , 1 35 : P0KE46 , 207 

18  SAVE" l.PDS" ,8: END 

19  : 

200  DATA  10, 03, 0E, 05, 19,00, 19,01 , 1C,00, 1C,01 , 10, 0A 

201  DATA  0E,0C, 19,07, 19,08, 1C,07, 1C,08, 10, 1 1 ,0E, 13 

202  DATA  19, 0E, 19, 0F, 1C,0E, 1C,0F, 26, 14,24, 15,23,04 

203  DATA  23 , 09 , 27 , 09 , 23 , 0A , 27 , 0A , 23 , 0B , 27 , 0B , 25 « 0C 

204  DATA  25 , 0E , 25 , 0F , 25 ,10, 00 , 00 , 00 , 00 , 80 , 7E , 00 , AB 

205  DATA  73 , 0C , C8 , 7B , 00 , 99 , 99 , 99 , B9 , 83 , 00 , 00 , 00 , 00 

206  DATA  F0, 85, 24, 30, 3A , 00, 00, 01 ,05,00,07,08,06,00 

207  DATA  03,02,04,01 ,36, 0B , 01 ,CF, 1A, 00, 50, 08, 08, 01 

208  DATA  00, A0, 85, 8F,BF,BF, 01 ,00,01 ,00,00,00,00,00 

209  DATA  00,00,01 ,00, 00, 00, 00, 00, 00,00, A5, 01 ,29, FE 

210  DATA  85,01 ,60, A5, 01 ,09,01 ,85,01 ,60,20, FD,AE, 20 

211  DATA  9E , AD , 4C , A3 , B6 , 20 , FD , AE , 4C , 9E , B7 , 20 , FD , AE 

212  DATA  20 , 9E , AD , 4C , 9B , BC ,18, A5 , FB , 69 ,01, 85 , FB , A5 

213  DATA  FC , 69 , 00 , 85 , FC , 60 ,18, A5 , FD , 69 ,01, 85 , FD , A5 

214  DATA  FE  ,  69 , 00 , 85 ,  FE  ,  60 , 38  ,  A5 ,  FB ,  E9 ,01, 85  ,  FB  ,  A5 

215  DATA  FC , E9 , 00 , 85 , FC , 60 , 38 , A5 , FD , E9 ,01, 85 , FD , A5 

216  DATA  FE, E9, 00, 85, FE, 60, 20, 79, C1 , A5 , 65 , 85 , 3F , 85 

217  DATA  1 4 , A5 , 64 , 85 , 40 , 85 ,15, 20 ,13, A6 , A5 , 5F , 38 , E9 

218  DATA  01 ,85,41 , A5 , 60 , E9 , 00 , 85 , 42 , 60 , 20 , 79 , C1 ,A5 

219  DATA  64 , 85 , FC , A5 , 65 , 85 , FB , 20 , 79 , C 1 , A5 , 64 , 85 , FE 

220  DATA  A5 , 65 , 85 , FD , 20 , 79 , C 1 , A5 , 64 , 8D , 66 , C0 , A5 , 65 

221  DATA  8D , 65 , C0 , 78 , 20 , 5C , C1 , A0 , 00 , B1 , FB , 91 , FD , 20 

222  DATA  1 1 , C2 , D0 , F5 , 20 , 63 , C1 , 58 , 60 , 20 , 2E , C2 , D0 , 01 

223  DATA  60 , 20 , 82 , C1 , 20 , 90 , C1 , 38 , AD , 65 , C0 , E9 , 01 , 8D 

224  DATA  65 , C0 , AD , 66 , C0 , E9 , 00 , 8D , 66 , C0 , AD , 66 , C0 , D0 

225  DATA  03  ,  AD  ,  65  ,  C0 , 60  ,  A9  ,  E8 , 8D  ,  65 ,  C0 ,  A9 , 03 , 8D  ,  66 

226  DATA  C0 , A9 , 00 , 85 , FB , A9 , D8 , 85 , FC , AD , 63 , C0 , A0 , 00 

227  DATA  91 , FB , 20 , 1 1 , C2 , D0 , F4 , 60 , 20 , 6A , C1 , 20 , BD , FF 

228  DATA  20 , 73 , C1 , A0 , 00 , 20 , BA , FF , 20 , 79 , C1 , A5 , 65 , 85 

229  DATA  FB , A5 , 64 , 85 , FC , 20 , 79 , C1 , 18 , A5 , 65 , 69 , 01 , 85 

230  DATA  65, A5, 64, 69, 00, 85, 64, A6 , 65 , A4 , 64 , 20 , 5C , C1 

231  DATA  A9 , FB , 20 , D8 , FF , 4C , 63 , C 1 , 20 , CF , FF , D0 , FB , 60 

232  DATA  20 , CF , FF , AA , A5 , 90 , D0 , F7 , 8A , C9 , 22 , D0 , F3 , 60 

233  DATA  18 , C9 , 20 , 90 , 07 , C9 , 7F , B0 , 03 , 4C , D2 , FF , A9 , 3F 

234  DATA  D0  ,  F9  ,  A2 , 09 , 8A  ,  48  ,  A9 , 20 , 20 ,  D2  ,  FF  ,  68  ,  AA ,  CA 

235  DATA  D0 , F4 , AE , 68 , C0 , AC , 67 , C0 , 18 , 4C , F0 , FF , 8A , 48 

236  DATA  20 , CF , FF , 68 , AA , CA , D0 , F6 , 60 , A9 , 00 , 85 , 90 , 8D 

237  DATA  66 , C0 , 20 , 6A , C1 , 8D , 69 , C0 , 8D , 65 , C0 , 86 , FB , 84 

238  DATA  FC , A9 , 51 , 85 , FD , A9 , C0 , 85 , FE , 20 , 4A , CB , 20 , 73 

239  DATA  C1 , A0 , 00 , A9 , 0E , 20 , BA , FF , AD , 69 , C0 , 18 , 69 , 04 

240  DATA  A2, 4E,A0,C0, 20, BD,FF, 20, 73, C1 ,8A, 18,69,30 

241  DATA  8D  ,  4F  ,  C0 ,  EA ,  EA ,  20 ,  C0 ,  FF ,  90 , 03 , 4C  ,  BB ,  C3  ,  A2 

242  DATA  0E , 20 , C6 , FF , A9 , 0 1 , 8D , 67 , C0 , A9 , 15 , 8D , 68 , C0 

243  DATA  20 , C0 ,C2 , 20 , 94 , C2 , 20 , CF , FF , C9 , 22 , F0 , 06 , 20 


.74 
.243 
.  154 
.253 
.  126 
.223 
.  120 
.65 
.68 
.251 
.202 
.233 
.  160 
.  179 
.  120 
.43 
.52 
.225 
.200 
.29 
.60 
.9 

.230 
.221 
.226 
.  167 
.200 
.  165 
.20 
.  165 
.  100 
.  145 
.62 
.221 
.  184 
.67 
.  134 
.23 
.  168 
.53 
.  196 
.245 
.200 
.  163 
.0 

.  151 
.8 
.85 
.64 
.  11 
.  190 
.  169 
.  142 
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DATA  A2  ,  C2 ,18, 90  ,  F3  ,  A9 , 1 D ,  20  ,  D2  ,  FF ,  20 ,  CF  ,  FF  ,  20 
DATA  CF , FF , 20 , A2 , C2 , 20 , CF , FF , 20 , A2 , C2 , A9 , 00 , 8D 
DATA  6E , C0 , 8D , 67 , C0 , 8D , 68 , C0 , 20 , C0 , C2 , 20 , B2 , C2 
DATA  20 , 94 , C2 , D0 , B 1 , AE , 69 , C0 , EA , 20 , CA , C2 , 8E , 6A 
CATA  C0 , 20 , CF , FF , C9 , 22 , F0 ,10, 20 , A2 , C2 , EE , 6A , C0 
DATA  AD , 6A , C0 , C9 , 09 , D0 , EC , 20 , 94 , C2 , EE , 6E , C0 , AD 
DATA  6E , C0 , C9 , 3C , F0 , 06 , 20 , A0 , C3 ,18, 90 , C7 , A9 , 0 1 
DATA  D0 , C9 , EE , 68 , C0 , AD , 68 , C0 , C9 , 1 4 , D0 , 0E , A9 , 00 
DATA  8D , 68 , C0 ,18, A9 , 0A , 6D , 67 , C0 , 8D , 67 , C0 , 4C , C0 
DATA  C2 , 20  ,  C0  ,  C2  ,  AE  ,  6E  ,  C0  ,  E0 , 3C  ,  F0 , 0F  ,  8A  ,  48 , 20 
DATA  B2 , C2 , 20 , A0 , C3 , 68 , AA , E8 , E0 , 3C , D0 , F 1 , A9 , 0E 
DATA  20  ,  C3  ,  FF  ,  4C  ,  CC  ,  FF  ,  20 , 73  ,  C1  ,  A0 , 00 , 84 , 90 ,  A9 
DATA  0E , 20 , BA , FF , A9 , 03 , A2 , 4E , A0 , C0 , 20 , BD , FF , 20 
DATA  73  ,  C 1 , 8A  ,  1 8 , 69 , 30 , 8D  ,  4F  ,  C0 , 20  ,  C0  ,  FF  ,  90 , 03 
DATA  4C , D4 , C3 , A2 , 0E , 20 , C6 , FF , A2 , 08 , 20 , CA , C2 , 20 
DATA  8E , C2 , 20 , CF , FF , 20 , CF , FF , 20 , CF , FF , 8D , 6F , C0 
DATA  20 , CF , FF , 8D , 70 , C0 , 4C , D4 , C3 , 60 , AD , 2D , C 1 , F0 
DATA  FA,A9,00,8D,2D,C1 ,85, 15, AD,71 , C0 , 85 , 14, AD 
DATA  88 , 02 , C9 , 84 , F0 , 1 1 , 1 8 , AD , 7 1 , C0 , C9 , EA , 90 , 03 
DATA  4C , A3 , A8 , A9 , 63 , 85 ,14, D0 , F7 ,18, AD ,71, C0 , C9 
DATA  EA , B0 , 02 , 90 , ED , A9 , 64 , 85 , 14 , D0 , E7 , A5 , C5 , C9 
DATA  3C ,  D0 , 0D  ,  AD  ,  79  ,  C0 , 8D  ,  72  ,  C0  ,  A9 ,01, 8D  ,  73  ,  C0 
DATA  D0 , 33 , C9 , 02 , F0 , 0B , C9 , 07 , F0 , 0B , A9 , 00 , 8D , 79 
DATA  C0 , F0 , 24 , A9 , 03 , D0 , 02 , A9 , 05 , 8D , 72 , C0 , AD , 8D 
DATA  02 , F0 , 1 0 , AD , 72 , C0 , C9 , 05 , F0 , 04 , A9 , 07 , D0 , 02 
DATA  A9 , 01  ,  8D ,  72  ,  C0  ,  AD  ,  72  ,  C0 , 8D  ,  79  ,  C0 , 60  ,  A9  ,  F4 
DATA  8D , 02 , DC , AD , 00 , DC , 29 , 0F , 85 , 02 , A9 , 0F , 38 , E5 
DATA  02 , A8 , B9 , 2E , C 1 , F0 , 03 , 8D , 72 , C0 , AD , 00 , DC , 29 
DATA  1 0 , D0 , 05 , A9 ,01, 8D , 73 , C0 , A9 , FF , 8D , 02 , DC , 60 
DATA  85 , FB . 38 , A5 , FC , E5 , FB , 85 , FC . A5 , FD , E9 , 00 , 85 
DATA  FD , 1 0 , 06 , A9 , 00 , 85 , FC , 85 , FD , 60 , 85 , FB , 1 8 , A5 
DATA  FC , 65 , FB , 85 , FC , A5 , FD , 69 , 00 , 85 , FD , 60 , A9 , 00 
DATA  85 , FD , AD ,01, D0 , 85 , FC , AD , 4 1 , C 1 , 20 , D2 , C4 , 1 8 
DATA  A5 , FC , CD , 3A , C 1 , 90 , 09 , 8D ,01, D0 , 8D , 03 , D0 , A9 
DATA  00 , 60 , AD , 3D , C1 , D0 , F2 , AD , 10 , D0 , 29 ,01, 85 , FD 
DATA  AD , 00 , D0 , 85 , FC , AD , 40 , C1 , 20 , EA , C4 ,18, A5 , FD 
DATA  CD , 3C , C 1 , B0 , 20 , A5 , FC , 8D , 00 , D0 , 8D , 02 , D0 , A5 
DATA  FD , D0 , 09 , A9 , FC , 2D ,10, D0 , 8D ,10, D0 , 60 , A9 , 03 
DATA  0D, 10,D0,8D, 1 0 , D0 , A9 , 00 , 60 , F0 , 0F , AD , 3E , C1 
DATA  8D , 00 , D0 , 8D , 02 , D0 , AD , 3F , C 1 , B8 , 50 , D9 ,18, A5 
DATA  FC , CD , 3B , C1 , 90 , C7 , F0 , C5 , B0 , E5 , A9 , 00 , 85 , FD 
DATA  AD ,01, D0 , 85 , FC , AD , 4 1 , C 1 , 20 , E A , C4 ,18, A5 , FC 
DATA  CD , 3D , C 1 , B0 , 09 , 8D ,01, D0 , 8D , 03 , D0 , A9 , 00 , 60 
DATA  F0 , F5 , AD , 3A , C 1 , D0 , F0 , AD ,10, D0 , 29 ,01, 85 , FD 
DATA  AD , 00 , D0 , 85 , FC , AD , 40 , C 1 , 20 , D2 , C4 ,18, A5 , FD 
DATA  CD , 3F , C1 , 90 , 24 , F0 , 31 , A5 , FC , 8D , 00 , D0 , 8D , 02 
DATA  D0,A5,FD,D0,0B,A9,FC,2D, 10,D0,8D, 10,D0,A9 
DAT  A  00 , 60  ,  A9 , 03 , 0D  ,  1 0  ,  D0 , 8D  ,  1 0  ,  D0  ,  A9 , 00 , 60  ,  AD 
DATA  3B,C1 , 8D , 00 , D0 , 8D , 02 , D0 , AD , 3C , C 1 , B8 , 50 , D9 
DATA  1 8 , A5 , FC , CD , 3E , C 1 , 90 , E9 , B0 , C5 , AD , 73 , C0 , D0 
DATA  05 , A9 , 00 , 8D , 43 , C 1 , AD , 72 , C0 , F0 , 27 , AD , 73 , C0 
DATA  F0 , 0C , A9 , 06 , 8D , 78 , C0 , A9 , 6C , 8D , 5B , 86 , D0 , 40 
DATA  A9 , 00 , 8D , 78 , C0 , A9 , 20 , 8D , 5B , 86 , AD , 74 , C0 , F0 
DATA  31 , CE , 74 , C0 , A9 , 00 , F0 , 27 , AD , 73 , C0 , F0 , 09 , AD 
DATA  78 , C0 , F0 , 1E , A9 , 00 , F0 , 19 , A9 , 00 , 8D , 43 , C1 , 8D 
DATA  74 , C0 , AD , 78 , C0 , F0 , 07 , CE , 78 , C0 , A9 , 00 , F0 , 05 
DATA  A9 , 20 , 8D , 5B , 86 , 60 , F0 , 53 , AD , 42 , C1 , 8D , 74 , C0 
DATA  AE , 72 , C0 , CA , 8A , 0A , 0A , 0A , 8D , 68 , C6 , A9 , 00 , F0 
DATA  FE , 4C , F A , C4 , EA , EA , EA , EA , EA , 20 , FA , C4 , 4C , 1 F 
DATA  C5 , EA , EA , 4C , 1 F , C5 , EA , EA , EA , EA , EA ,20,76, C5 
DATA  4C  ,  1 F  ,  C5  ,  EA  ,  EA ,  4C  ,  76  ,  C5 ,  EA  ,  EA  ,  EA  ,  EA  ,  EA  ,  20 
DATA  76 , C5 , 4C , 9D , C5 , EA , EA , 4C , 9D , C5 , EA , EA , EA , EA 
DATA  EA,20,FA,C4,4C,9D,C5,AD,43,C1 ,D0,61 ,A9,01 
DATA  8D , 43 , C 1 , AD , 00 , D0 , 38 , E9 , 17, 8D , 7A , C0 , AD , 1 0 
DATA  D0,29,01 ,E9,00,8D,7B,C0,AD,7A,C0,4A,4A,4A 
DAT  A  48 , AD , 7B , C0 , F0 , 06 , 68 , 1 8 , 69 , 20 , D0 , 0 1 , 68 , 8D 
DATA  7A ,  C0  ,  AD  ,01,  D0 , 38 ,  E9 ,31, 4A  ,  4A  ,  4A  ,  8D  ,  7B  ,  C0 
DATA  A9 , 00 , 85 , FB , A9 , 04 , 85 , FC , AE , 7B , C0 , F0 , 08 , A9 
DATA  28 , 20 , 0D , C7 , CA , D0 , F8 , AD , 7A , C0 , 20 , 0D , C7 , A0 
DATA  00 , B 1 , FB , 8D ,71, C0 , A9 ,01, 8D , 2D , C 1 , 18, 65 , FB 
DATA  85 , FB , A5 , FC , 69 , 00 , 85 , FC , 60 , 20 , 73  ,  C 1  , 8A , 48 
DATA  20,73,C1 ,68, A8, 18,20, F0,FF, 20,73, C1 ,E8,8A 
DATA  48 , 20 , FD , AE , 20 , 9E , AD , 20 , DD , BD , 68 , AA , A0 , 00 
DATA  B9 , 00 ,01  ,  F0 , 03 ,  C8  ,  D0 ,  F8 , 20 , 76 ,  C7  ,  CA  ,  F0  ,  IB 
DATA  88  ,  B9 , 00 ,01,  C9 , 20 ,  F0 , 13,  C9 , 30  ,  F0 , 05 , 38  ,  E9 
DATA  1 0 , D0 , 02 , A9 , 2A , 20 , D2 , FF , 20 , 76 , C7 , D0 , DF , E0 
DATA  00 , F0 , 0E , A9 , 2A , 20 , D2 , FF , CA , 20 , 76 , C7 , 20 , 76 
DATA  C7 , D0 , EE , 60 , A9 , 00 , 85 , D4 , A9 , 9D , 4C , D2 , FF , A9 
DATA  00,29,01 ,F0, 06, A2, 96, A0,B1 ,D0, 02, A2, 16,60 
DATA  AD,42,94,A0,31 ,20,81 , C7 , 8E , A9 , 84 , 8C , DI ,84 
DATA  A0 , 31 , AD , 49 , 94 , 20 , 81 , C7 , C8 , 8E , C 1 , 85 , 8C , E9 
DATA  85 , A0 ,31, AD , 50 , 94 , 20 ,81, C7 , C8 , C8 , 8E , D9 , 86 
DATA  8C,01 ,87,60, 8E,7D,C0,AD, 55,94, 2D,7D,C0,F0 
DATA  06 , A9 , 47 , A2 , 54 , D0 , 04 , A9 , 54 , A2 , 47 , A0 , 7E , 9 1 
DATA  FB ,  A0  ,  CE  ,  8A  ,91,  FB ,  60 , 4 A ,  4A  ,  4 A  ,  4A ,  29 , 03  ,  A8 
DATA  B 1 , FB , 60 , F0 , 04 , A9 , 47 , D0 , 02 , A9 , 54 ,91 , FB , 60 
DATA  BD , 42 , 94 , 48 , A0 , C8 , 29 , 80 , 20 , E5 , C7 , 68 , 48 , A0 
DATA  50,29, 10,20, E5,C7, 68,48, A0, 00, 29, 04,20, E5 
DATA  C7 , 68 , 48 , A0 , 78 , 29 , 20 , 20 , E5 , C7 , 68 , A0 , A0 , 29 
DATA  40 , 4C , E5 , C7 , A9 , 3C , 85 , FB , A9 , 84 , 85 , FC , A2 , 00 
DATA  20 , F0 , C7 , A2 ,01, 20 , BC , C7 , A9 , 54 , 85 , FB , A9 , 85 
DATA  85 , FC , A2 , 07 , 20 , F0 , C7 , A2 , 02 , 20 , BC , C7 , A9 , 6C 
DATA  85 , FB , A9 , 86 , 85 , FC , A2 , 0E , 20 , F0 , C7 , A2 , 04 , 20 
DATA  BC , C7 , AD , 55 , 94 , 29 , 08 , F0 , 06 , A9 , 47 , A2 , 54 , D0 
DATA  04 , A9 , 54 , A2 , 47 , 8D , 22 , 84 , 8E , 4A , 84 , AD , 42 , 94 
DATA  29 , 02 , F0 , 04 , A9 , 48 , D0 , 02 , A9 , 59 , 8D , 0D , 86 , AD 
DATA  49 , 94 , 29 , 02  ,  F0 , 04  ,  A9 , 48  ,  D0 , 02  ,  A9 , 59 , 8D ,  96 
DATA  85 ,  AD  ,  50 , 94 , 29 , 02  ,  F0 , 04  ,  A9 , 48  ,  D0 , 02  ,  A9 , 59 
DATA  8D  ,  AE ,  86 ,  AD ,  56 , 94 , 48 , 29 , 80 ,  F0 , 04  ,  A9 , 59  ,  D0 
DATA  02 , A9 , 48 , 8D , C5 , 86 , 68 , 48 , 29 ,10, D0 , 04 , A9 , 65 
DATA  D0 , 02 , A9 , 66 , 8D ,19, 87 , 68 , 48 , 29 , 20 , D0 , 04 , A9 
DATA  63 , D0 , 02 , A9 , 64 , 8D , 1 B , 87 , 68 , 29 , 40 , D0 , 04 , A9 
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.72 
.  155 
.88 
.201 
.234 
.  207 
.  132 
.43 
.76 
.37 
.76 
.  159 
.216 
.  183 
.58 
.65 
.  192 
.  127 
.212 
.  137 
.62 
.87 
.86 
.  175 
.  56 
.111 
.232 
.219 
.20 
.  129 
.  182 
.  153 
.212 
.  147 
.56 
.  191 
.  178 
.91 
.96 
.23 
.  184 
.55 
.  12 
.91 
.250 
.  125 
.28 
.45 
.4 

.255 
.92 
.  177 
.244 
.233 
.236 
.229 
.  14 
.69 
.94 
.  189 
.234 
.77 
.  154 
.63 
.240 
.61 
.  188 
.95 
.70 
.  1 

.  1 10 
.  137 
.  154 
.211 
.26 
.  105 
.  108 
.  137 
.216 
.215 
.6 
.87 
.  160 
.255 
.  140 
.  139 
.94 
.253 
.238 
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346  DATA  61 , D0 , 02 , A9 , 62 , 8D , 1 D , 87 , A9 , 45 , 85 , FB , A9 , C 1  .11 

347  DATA  85  ,  FC , AD , 65 , 94 , 48 , 20 , DF , C7 , 8D ,88,84,68,20  .4 

348  DATA  DB , C7 , 8D , D8 , 84 , AD , 66 f 94 , 48 , 20 , DF , C7 , 8D , A0  .63 

349  DATA  85 , 68 , 20 , DB  ,  C7 , 8D , F0 , 85 , AD , 67 , 94 , 48 , 20 , DF  .58 

350  DATA  C7 , 8D , B8 , 86 , 68 , 20  ,  DB , C7 , 8D , 08 , 87 , AD , 68 , 94  .169 

351  DATA  48 , 20 , DF , C7 , 8D , 46  f  87 , 68 , 20 , DB , C7 , 8D , 6E , 87  .254 

352  DATA  AD , 69 , 94 , 20 , DF , C7 , 8D , C3 , 84 , 20 , 8E , C7 , 60 , AD  .125 

353  DAT  A  7E , C0 , AA , BD , D4 , C0 , A8 , E8 , BD , D4 , C0 , E8 , 8E , 7E  .112 

354  DATA  C0 , AA , 18 , 4C , F0 ,FF , 29 , 0F , A8 , 20 , A2 , B3 , 20 , DD  .89 

355  DATA  BD , A2 , 03 , 20 , 38 , C7  ,  4C ,  31  , C9 , 4A , 4A , 4A , 4A , 1 8  .158 

356  DATA  90 , E8 , A9 , 12 , 85 , FB , A9 , C1 , 85 , FC , A2 , 06 , B 1 , FB  .95 

357  DATA  95,68, C8 , CA  , D0 , F8 , 60 , 20 , 90 ,  C 1  , A0 , 00 , B 1 , FD  .26 

358  DATA  60 , 84 , 63 , 85 , 62 , A2 , 90 , 38 , 4C , 49 , BC , A5 , 61 , 20  .79 

359  DATA  2B , BA , 20 , CC , BC , 20 , DD , BD , AE , 80 , C0 , 20 , 38 , C7  .54 

360  DATA  4C ,31, C9 , 20 ,71, C9 , 48 , 20 ,71, C9 , AA , 68 , A8 , 8A  .121 

361  DATA  60 , 20 , 97 , C9 , 20 , 79 , C9 , A0 , 00 , 20 , 5E , C9 , A2 , 05  .126 

362  DATA  8E , 80 , C0 , 20 , 83 , C9 , 20 , 97 , C9 , 29 , 0F , 20 , 79 , C9  .231 

363  DATA  A0 , 06 , 20 , 5E , C9 , A2 , 03 , 8E , 80 , C0 , 20 , 83 , C9 , 20  .50 

364  DATA  7 1 , C9 , 20 , 7 1 , C9 , 48 , 20 , 57 , C9 , 68 , 20 , 46 , C9 , 20  .251 

365  DATA  7 1 , C9 , 48 , 20 , 57 ,C9 , 68 , 4C , 46 , C9 , 20 , 97 , C9 , 20  .14 

366  DATA  79 , C9 , 4C , 88 , C9 , A9 , 00 , 8D , 7E , C0 , 20 , 31 , C9 , A9  .79 

367  DATA  3D , 85 , FD , A9 , 94 , 85 , FE , A9 , 03 , 8D , 86 , 02 , 20 , A3  .224 

368  DATA  C9 , 20 , A3 , C9 , 20 , A3 , C9 , A9 , 05 , 8D , 86 , 02 , 20 , 97  .199 

369  DAT  A  C9 , 0A , 0A , 0A , 8D , 7F , C0 , 98 , 0D , 7F , C0 , A8 , 8A , 4A  .194 

370  DATA  4A , 4A , 4A , 4A , 20 ,79 , C9 , A0 , 0C , 20 , 5E , C9 , A5 ,61  .237 

371  DATA  20 , 2B , BA , A0 ,12, 20 , 5E , C9 , A5 ,61, 20 , 6A , B8 , A2  .202 

372  DATA  06 , 8E , 80 , C0 , 20 , 88 , C9 , 20 , 71 , C9 , 20 , 57 , C9 , A9  .115 

373  DATA  07 , 8D , 86 , 02 , 20 , 71 , C9 , 20 , 46 , C9 , A9 , 0D , 8D , 86  .2 

374  DATA  02 , A9 , 04 , 8D , 80 , C0 , A9 , 07 , 48 , 20 , E4 , C9 , 68 , 38  .29 

375  DATA  E9 , 01 , D0 , F6 , A9 , 0D , 8D , 86 , 02 , A9 , 49 , 85 , FD , A9  .140 

376  DATA  C 1 , 85 , FE , A9 , C 1 , A9 , 38 , 8D , 7E , C0 , A9 , 04 , 8D , 80  .51 

377  DATA  C0 , 20 , 31 , C9 , 20 , E4 , C9 , 20 , E4 , C9 , 20 , 99 , CA , A0  .184 

378  DATA  00 , B 1 , FB , 8D , 4E , C 1 , 4C , E4 , C9 , A9 , 6F , 85 , FB , A9  .205 

379  DATA  94 , 85 , FC , AD , 4C , C1 , 18 , 65 , FB , 85 , FB , AD , 4D , C1  .222 

380  DATA  65 , FC , 85 , FC , 60 , C9 , 0A , 90 , 02 , 69 , 06 , 69 , 30 , 95  .77 

381  DATA  FB , 60 , 20 , 73 , C 1 , 8A , 48 , 4A , 4A , 4A , 4A , A2 , 00 , 20  .196 

382  DATA  B1 , CA , E8 , 68 , 29 , 0F , 20 , B1 , CA , 20 , 6A , C1 , 86 , FD  .217 

383  DATA  84 , FE , A0 , 00 , A5 , FB ,91 , FD , C8 , A5 , FC , 91 , FD , 60  .110 

384  DATA  20 , 79 , C1 , A5 , 65 , 85 , FB , A5 , 64 , 85 , FC , 20 , 5C , C1  .195 

385  DATA  A0 , 00 , B1 , FB , 8D , 83 , C0 , 4C , 63 , C1 , 20 , 99 , CA , A9  .24 

386  DATA  62 , 85 , FD , A9 , 96 , 85 , FE , A0 , 00 , B 1 , FD , C8 , 9 1 , FD  11 

387  DATA  38 , 20 , AC , C1 , C5 , FC , D0 , F1 , 18 , A5 , FD , C5 , FB , B0  .96 

388  DATA  EA , A9 , 00 , A0 , 00 , 91 , FB , 8D , 63 , 96 , 4C , 6A , CA , 20  .189 

389  DATA  99 , CA , A0 , 01 , B1 , FB , 88 , 91 , FB , 20 , 1 7 , C2 , A5 , FB  .44 

390  DATA  C9 , 64 , D0 , F0 , A5 , FC , C9 , 96 , D0 , EA , A9 , 00 , 8D , 63  .213 

391  DATA  96 , 4C , 6A , CA , A0 ,10, A9 , 2A ,91, FD , 88 , D0 , F9 , 4C  .110 

392  DATA  01 , C2 , 4A , 4A , 4A , 4A , 29 , 0F , F0 , 0C , C9 , 0 1 , D0 , 09  .67 

393  DATA  AD , 1C , D4 , 8D , 87 , C0 , A9 , 01 , 60 , AD , IB , D4 , 8D , 87  .244 

394  DATA  C0 , A9 , 0 1 , 60 , AD , 8A , C0 , D0 , 07 , AE , 87 , C0 , AC , 89  .139 

395  DATA  C0 , 60 , C9 , 0F , D0 , 07 , AC , 87 , C0 , AE , 88 , C0 , 60 , AE  .140 

396  DATA  8A , C0 , 18 , AD , 88 , C0 , 6D , 87 , C0 , 8D , 88 , C0 , AD , 89  .119 

397  DATA  C0 , 69 , 00 , 8D , 89 , C0 , CA , D0 , EB , AE , 88 , C0 , AC , 89  .34 

398  DATA  C0 , 60 , 00 , 01 , 02 , 03 , 04 , 05 , 06 , 07 , 08 , 09 , 0A , 0B  .155 

399  DATA  0C , 0D , 0E , 0F , AD , 69 , 94 , 4 A , 4A , 4A , 4A , 29 , 0F , AA  .58 

400  DATA  BD , AA , CB , 8D , 8A , C0 , EA , EA , EA , AE , 3E , 94 , AC , 3F  .79 

401  DATA  94 , AD , 65 , 94 , 20 , 5A , CB , F0 , 09 , 8E , 88 , C0 , 8C , 89  .18 

402  DATA  C0 , 20 , 74 , CB , 8E , 00 , D4 , 8C ,01, D4 , EA , AE , 40 , 94  .107 

403  DATA  AC ,41 ,94 , AD , 65 , 94 , 20 , 56 , CB , F0 , 09 , 8E , 88 , C0  .228 

404  DATA  8C , 89 , C0 , 20 , 74 , CB , 8E , 02 , D4 , 8C , 03 , D4 , EA , AE  .41 

405  DATA  45 • 94 , AC . 46 . 94 , AD . 66 , 94 , 20 . 5A . CB . F0 , 09 . 8E  .220 

406  DATA  88 , C0 , 8C , 89 , C0 , 20 , 74 , CB , 8E , 07 , D4 , 8C , 08 , D4  .83 

407  DATA  EA, AE , 47,94, AC , 48,94, AD , 66, 94, 20,56, CB , F0  .94 

408  DATA  09 , 8E , 88 , C0 , 8C , 89 , C0 , 20 , 74 , CB , 8E , 09 , D4 , 8C  .113 

409  DATA  0A , D4 , EA , AE , 4C , 94 , AC , 4D , 94 , AD , 67 , 94 , 20 , 5A  .208 

410  DATA  CB , F0 , 09 , 8E , 88 , C0 , 8C , 89 , C0 , 20 , 74 , CB , 8E , 0E  .167 

411  DATA  D4 , 8C , 0F , D4 , EA , AE , 4E , 94 , AC , 4F , 94 , AD , 67 , 94  .50 

412  DATA  20 , 56 ,  CB  ,  F0 , 09 , 8E  ,  88  ,  C0 , 8C  ,  89  ,  C0 , 20 , 74  ,  CB  .*51 

413  DATA  8E, 10, D4,8C, 1 1 ,D4,EA,AE, 53,94, AC, 54,94, AD  .204 

414  DATA  68 , 94 , 20 , 5A , CB , F0 , 39 , 8E , 88 , C0 , 8C , 89 , C0 , 98  .41 

415  DATA  0A , 0A , 0A , 0D , 88 , C0 , 8D , 88 , C0 , 98 , 4A , 4 A , 4A , 4A  .152 

416  DATA  4A , 8D , 89 , C0 , 20 , 74 , CB , 98 ,18, C9 , 07 , 90 , 02 , A9  .111 

417  DATA  07,0A,0A,0A,0A,0A,8D,89,C0,8A,4A,4A,4A,0D  .40 

418  DATA  89 , C0 , A8 , EA , EA , EA , EA , EA , 8E ,15, D4 , 8C ,16, D4  .203 

419  DATA  EA , AE , 55 , 94 , AD , 68 , 94 , 20 , 56 , CB , F0 , 0F , AD , 87  .142 

420  DATA  C0 , 29 , F0 , 8D , 88 , C0 , 8A , 29 , 0F , 0D , 88 , C0 , AA , 8E  .51 

421  DATA  1 7 , D4 , EA , AD , 54 , C 1 , D0 ,21, AE , 56 , 94 , AD , 69 , 94  .146 

422  DATA  20 , 5A , CB , F0 , 13 , AD , 87 , C0 , 4A , 4A , 4A , 4A , 29 , 0F  .157 

423  DATA  8D , 88 , C0 , 8A , 29 , F0 , 0D , 88 , C0 , AA , 8E , 18 , D4 , 60  .96 

424  DATA  A5 , FB , 48 , A5 , FC , 48 , A5 , FD , 48 , A5 , FE , 48 , AD , 39  .249 

425  DATA  C1 , F0 , 31 , A9 , 00 , 8D , 72 , C0 , 8D , 73 , C0 , 20 , 5F , C4  .60 

426  DATA  20 , A6 , C4 , 20 , F4 , C5 , AE , 44 , C1 , F0 , 13 ,CA , 8E , 44  .15 

427  DATA  C1 , D0 , 0D , A9 , 20 , A2 , 26 , 9D , 98 , 87 , 9D , 98 , 83 , CA  .48 

428  DATA  D0 , F7 , 20 , BA , CB , AD , 50 , C1 , D0 , 0F , 68 , 85 , FE , 68  .43 

429  DATA  85 , FD , 68 , 85 , FC , 68 , 85 , FB , 4C , 31 , EA , 4C , 07 , CF  .156 

430  DATA  18, AD , 59 , 94 , 6D , 5A , 94 , 6D , 5D , 94 , 6D , 5E , 94 , 6D  .233 

431  DATA  61 , 94 , 6D , 62 , 94 , F0 , 0B , A9 , 02 , 20 , 8B , CD , 20 , 98  .178 

432  DATA  CD , A9 , 00 , 60 , A9 , 01 , 60 , 8D , 50 , C1 , A9 , 00 , 8D , 8B  .153 

433  DATA  C0 , EA , 8D , 8C , C0 , 60 , 18 , AD , 8B , C0 , 69 , 01 , 8D , 8B  .122 

434  DATA  C0 , AD , 8C , C0 , 69 , 00 , 8D , 8C , C0 , 60 , 98 , CD , 8C , C0  .179 

435  DATA  D0 , 04 , 8A , CD , 8B , C0 , 60 , AE , 8D , C0 , BD , 57 , 94 , 48  .100 

436  DATA  E8 , BD , 57 , 94 , A8 , E8 , 8E , 8D , C0 , 68 , AA , 4C , AA , CD  .211 

437  DATA  BD , 3E , 94 , 09 , 01 , 9D , 3E , 94 , 9D , 00 , D4 , 4C , 8E , C7  .120 

438  DATA  BD , 3E , 94 , 29 , FE , B8 , 50 , EF , 1 8 , BD , 57 , 94 , D9 , 57  .83 

439  DATA  94 , D0 , 0C , CA , 88 , BD , 57 , 94 , D9 , 57 , 94 , D0 , 07 , E8  .42 

440  DAT  A  60 , B0 , 02 , 98 , AA , 60 , B0 , 02 , 98 , AA , E8 , 60 , A9 , 00  .179 

441  DATA  8D , 8D , C0 , 20 , B5 , CD , D0 , 05 , A2 , 04 , 20 , CA , CD , 20  .160 

442  DATA  B5 , CD , D0 , 05 , A2 , 04 , 20 , D8 , CD , 20 , B5 , CD , D0 , 05  .151 

443  DATA  A2 , 0B , 20 , CA , CD , 20 , B5 , CD , D0 , 05 , A2 , 0B , 20 , D8  .48 

444  DATA  CD , 20 , B5 , CD , D0 , 05 , A2 , 12 , 20 , CA , CD , 20 , B5 , CD  .175 

445  DATA  D0 , 05 , A2 , 12 , 20 , D8 , CD , 60 , AD , 98 , C0 , 85 , FB , AD  .152 

446  DATA  99 , C0 , 85 , FC , A0 , 31 , B1 , FB , 99 , 3E , 94 , 88 , 1 0 , F8  .93 


447  DATA  A0,18 

448  DATA  39, C1 

449  DATA  AD,4C 

450  DATA  4D , C 1 

451  DATA  90, 1F 

452  DATA  96, C0 

453  DATA  50, C1 

454  DATA  B0,26 

455  DATA  E9,63 

456  DATA  38, E9 

457  DATA  A0,32 

458  DATA  C0 , 69 

459  DATA  CA,D0 

460  DATA  01, D0 

461  DATA  07,20 

462  DATA  CE, AE 

463  DATA  98, CD 

464  DATA  C0,20 

465  DATA  50, C1 

466  DATA  06 , AD 

467  DATA  63, C1 

468  DATA  1E,C8 


,  B9 , 3E ,  94 , 99 
, 20 , 8E , C7 , 20 
,C1 ,69,01 ,8D 
,  20 , 99 ,  CA  ,  A0 
,  A0 , 06 ,  B9 , 8F 
,  8D , 98 , C0 , AD 
, 60 , EA , EA , 8D 
, 18,A9,64,CD 
, 8D , 85 , C0 , A2 
,31 , 8D , 85 , C0 
,  8C , 98 , C0 , 8E 
,  32 , 8D , 98 , C0 
,  EC , A9 , 01 , 8D 
, 1 7 , A9 , 02 , 20 
,E0,CD,A0,0B 
,  84  ,  C0  ,  CA  ,  8E 
,  4C , 56 , CD , A9 
,  B5 , CD , D0 , EB 
,  D0  ,  E2 ,  A9 , 04 
,  73 , C0 , F0 , F4 
,  4C , 5A , CF , 20 
,  20 , ED , C9 , 20 


,  00 , D4 , 88 ,10, F7 
, 73 , CF , A9 ,01, 8D 
,  4C , C1 , AD , 4D , C 1 
,  00 ,B1 ,FB,F0, 05 
,  C0 , 99 , 49 , C 1 , 88 
,  97 , C0 , 8D , 99 , C0 
, 85 , C0 , 18 , A9 , 32 
, 85 , C0 , B0 , 0F , AD 
,  A9 , A0 , 88 , D0 , 1 3 
,A2,9F,A0,C4,D0 
, 99 , C0 , AE , 85 , C0 
,  AD , 99 , C0 , 69 , 00 
, 50 , C 1 , 60 , C9 , 03 
,  68 , CD , D0 , 25 , EA 
, 20 , E0 , CD , 8E , 84 
,  8D , C0 , 20 , B5 , CD 
,03,20, 8B , CD , A2 
,  AD ,51 , C 1 , D0 , 07 
,  D0 , F7 , AD , 50 , C 1 
, 60 , 20 , 5C , C 1 , 20 
,  63 , C 1 , AD , 52 , C 1 
,  6A , CA , 4C , 5C , C 1 


A9, 

,00, 

,8D 

.212 

39, 

,C1  , 

,  18 

.77 

69, 

,00, 

,8D 

.2 

18, 

,  C9 , 

,  97 

.99 

D0  , 

,F7, 

,  AD 

.222 

A9 , 

,01  , 

,8D 

.209 

CD, 

,85, 

,C0 

.  176 

85, 

,C0, 

,38 

.  103 

AD, 

,85, 

,C0 

.  126 

04, 

,A2, 

,96 

.31 

18, 

,  AD, 

,98 

.70 

8D, 

,  99 , 

,C0 

.247 

F0 , 

,35, 

,C9 

.  130 

A2, 

,03, 

,A0 

.203 

C0, 

,20, 

,00 

.  162 

F0 , 

,06, 

,20 

.53 

0C, 

,8E, 

,8D 

.50 

A9, 

,01. 

,8D 

.  149 

C9, 

,04, 

,F0 

.22 

42, 

,  CE , 

,20 

.  191 

F0 , 

,06, 

,20 

.6 
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PROGRAMA :  GEN. 2  LISTADO  4 

10  REM  GEN  PDS.2  .78 

11  s  .243 

12  P0KE56 , 132: CLR: A=36479: B=37743  .198 

13  FORI=ATOB  .253 

14  READAS: SYS828 , I , A$ : S=S+VAL (AS )  .126 

15  NEXTs  IFSO5640THENPRI  NT  "ERROR"  .133 

16  P0KE43 , 1 27 : PQKE44 , 1 42  .62 

17  P0KE45, 1 12: P0KE46, 147  .253 

18  SAVE "2. PDS " , 8 s END  .84 

19  :  .251 


500  DAT  A  3F , 00 , 00 , 00 , 70 , 00 , 00 , 58 , 00 , 00 , 6C , 00 , 00 , 36  .129 

501  DATA  00,00, IB, 00,00, 0D, 80, 00,07, F8, 00, 0E,0C, 00  .120 

502  DATA  0B , E6 , 00 , 1 D , B2 , 00 ,16, B2 , 00 , 3B , 02 , 00 , 2C , 07  .187 

503  DATA  00 , 34 , 0D , 80 ,18,18, C0 , 0F ,31, 80 , 03 , E3 , 00 , 00  .176 

504  DATA  66,00,00,30,00,00,18,00,00,00,00,00,70,00  .165 

505  DATA  00, 78, 00, 00, 7C, 00, 00, 3E, 00, 00, 1F,00,00,0F  .118 

506  DATA  80 , 00 , 07 , F0 , 00 , 0F , F8 , 00 , 0F , FC , 00 , 1 F , FE , 00  .115 

507  DATA  1 F , FE , 00 , 3F , FE , 00 , 3F , FF , 00 , 3F , FF , 80 , 1 F , FF  .6 

508  DATA  C0 , 0F , FF , 80 , 03 , FF , 00 , 00 , 7E , 00 , 00 , 3C , 00 , 00  .179 

509  DATA  1 8, 00, 00, 00, 00, 00, 03, C7, 00, 1E , 7D , E0 , 30 , 00  .72 

510  DATA  38, 37,EF,CC, 60, C1 ,8C, 61 ,83, 18,63,06, 18,37  .85 

511  DATA  EC,0C, 18, 1F,CC, 18,00, 18 , 0E , 00 , F0 , 03 , E7 , 00  .156 

512  DATA  00, 3C, 00, 00, 00, 00, 00, 1C, 00, 00, 36, 00,00, 1C  .18 

513  DATA  00, 00, 00, E0, 00, 00, E0, 00, 00, 00, 00, 00, 00, 00  .217 

514  DATA  03 , C7 , 00 , 1F , FF , E0 , 3F , FF , F8 , 3F , FF , FC , 7F , FF  .186 

515  DATA  FC , 7F , FF , F8 , 7F , FF , F8 , 3F , FF , FC , 1F , FF , FC , 1F  .137 

516  DATA  FF , F8 , 0F , FF , F0 , 03 , FF , 00 , 00 , 3C , 00 , 00 , 00 , 00  .182 

517  DATA  00, 1C, 00,00, 3E, 00, 00, 1C, 00, 00, 00, E0 , 00, 00  .197 

518  DATA  E0 , 00 , 00 , 00 , 00 , 00 , 0F , F8 , 70 , 30 , 0C , 5F , E3 , C6  .164 

519  DATA  66,06,63,33,00,63, 19, C0,C3,0C, 61 ,83, 07, El  .119 

520  DATA  83 , 0E , E0 , 06 , 0B ,61, 86 , 1 D , B8 , 1 C , 1 6 , 8F , F0 , 3B  .144 

521  DATA  02 , 00 , 2C , 07 , 00 , 34 , 0D , 80 , 18, 18, C0 , 0F ,31, 80  .211 

522  DATA  03 , E3 , 00 , 00 , 66 , 00 , 00 , 3C , 00 , 00 , 18 , 00 , 00 , 00  .62 

523  DATA  0F , F8 , 70 , 3F , FC , 7F , FF , FE , 7F , FF , FF , 3F , FF , FF  .29 

524  DATA  1F , FF , FF , 0F , FF , FF , 07 , FF , FF , 0F , FF , FE , 0F , FF  .40 

525  DATA  FE , 1F , FF , FC , 1F , FF , F0 , 3F , FE , 00 , 3F , FF , 00 , 3F  .87 

526  DATA  FF , 80 , 1F , FF , C0 , 0F , FF , 80 , 03 , FF , 00 , 00 , 7E , 00  .106 

527  DATA  00 , 3C , 00 , 00 , 18 , 00 , 01 , BE , FE , FE , FE , FE , 7E , 0E  .25 

528  DATA  1 1 , 91 , 14 , 04 , FE , FE , 0E , FE , 1E , FE , FE , FE , 0E , 0E  .182 

529  DATA  0E , 83 , 03 , F3 , F3 , 03 , F3 , F3 , FE , 01 , 01 , C1 , F1 , 0 1  .71 

530  DATA  01 ,01 ,01 ,01 ,01 ,CE,0A,0E,0A,0E,0A,0E,01 ,CE  .140 

531  DATA  04,04,04,01 ,01 ,01 ,01 ,01 ,01 ,01 ,F1 ,01 ,01 ,03  .177 

532  DATA  03 , 03 , 03 , 03 , 03 , 03 , 0E , F1 , 01 , 01 , 01 , 01 , 01 , 0E  .240 

533  DATA  0E , 0E , 0E , 0E , FE , 0E , 0E , 0E , BE , 0E , 01 , 0 1 , 04 , 04  .185 

534  DATA  0E , 0E , 03 , 03 , 03 , 0E , 0E , 0E , 0E , 0E , 01 , 01 , 0E , 03  .138 

535  DATA  03 , 03 , 0E , 0E , 0E , 01 , C 1 , 07 , 07 , 0E , 0E , 0E , 0E , BE  .111 

536  DATA  CE , 0E , 07 , F7 , 0E , F7 , 07 , CE , C1 , 1 1 , 03 , 03 , 03 , 03  .100 

537  DATA  03 , 03 , 03 , 1 1 , 03 , 03 , C1 , 01 , 01 , 0E , FE , 0E , 0E , 0E  .41 

538  DATA  0E , 0E , B1 , 01 , 01 , 07 , 17 , F7 , F7 , 0E , FE , 4E , 06 , 0E  .30 

539  DATA  0E , 0E , 8E , 0E , 8E , 0E , 61 , F1 , 0A , 33 , 13 , 63 , 03 , F3  .83 

540  DATA  C3,03,03,F3,01 ,61 ,01 ,0E,CE, 1E,01 ,01 ,01 ,01  .132 

541  DATA  B 1 , 1 E , 6E ,17,17, 07 , F 1 , 07 , F 1 , 06 , F6 , 0E , 07 , 07  .121 

542  DATA  17 , 0E , FE , 0E , 0 1 , 01 , 0A , E3 , 1 3 , 83 , B3 , 13 , 03 , 01  .252 

543  DATA  F3 , 03 , 01 , 0 1 , B1 , 0E ,FE , 0E , F 1 , 0E , 0E , 1 1 , 01 , 01  .75 

544  DATA  0 1 , 07 , F7 , 07 , 07 , 0E , 0E , 0E , 06 , 0E , FE , 0E , 0E , 0E  .174 

545  DATA  B1 , 01 , 01 , 01 , 03 , 03 , 03 , 03 , 03 , 03 , 03 , 03 , 03 , 03  .103 

546  DATA  01 , 01 , 01 , 01 , 0E , 0E , 01 , 01 , 01 , 01 , 01 , 01 , C1 , 07  .52 

547  DATA  07 , 0E , 0E , 0E , 0E , 0E , 0E , 0E , 07 , FE , 07 , 0E , 01 , 01  .113 

548  DATA  01 ,01 . 04 . 04 . 0E . 0E . FE . 0E . 0E , 0E , 0E . 0E . 0E . 0E  .170 

549  DATA  0E , 03 , 03 , F3 , 03 , 03 , 03 , B3 , 01 , C1 , FD , FD , 0D , 0D  .5 

550  DATA  1D,8D, 1D,0D,0D,8E,0E,0E,0E,6E,F1 ,01 ,01 ,0E  .216 

551  DATA  F4, 14,04,C1 ,01 ,01 ,F1 ,01 ,E1 ,01 ,F1 ,C1 ,C1 ,03  .9 

552  DATA  03 , 03 , 03 , 03 , F3 , 03 , C1 , 01 , 0D , BD , 6D , 1 D , FD , CD  .196 

553  DATA  0D , 0D , FD , 0E , C7 , 07 , F7 , CE , 1 1 , 0 1 , 61 , 01 , 04 , F4  .75 

554  DATA  EE , 4E , 1 3 , 03 , 03 , 0E , 0E , FE , 0E , FE , 01 , 1 1 , 0E , 1 3  .250 

555  DATA  03 , 03 , 0E , 0E , 01 , 01 , ID , 0D , 8D , BD , FD , 0D , 0D , FD  .47 

556  DATA  FD , 0E , 8E , BE , 1E , FE , 81 , F 1 , 01 , 0 1 , 1 3 , 63 , 03 , 03  .32 

557  DATA  03 , F3 , 03 , 0 1 , 03 , 03 , F1 , 01 , 01 , 0E , FE , 0E , 0E , 0E  .19 

558  DATA  0E , 0E , F 1 , 01 , 0D , 0D , 0D , 0D , 0D , 0D , 0D , 0D , 0D , FE  .84 

559  DATA  03 , 03 , 03 , 0E , 01 , 01 , 01 , 01 , 0A , 03 , F3 , 03 , 03 , 03  .7 

560  DATA  B3, 03, 03, 03, 01 ,01 ,01 ,0E,0E,0E,01 ,01 ,01 ,01  .64 

561  DATA  01 ,01 ,0D,0D,0D,0D,0D,0D,0D,0D,0D,0E,CE,0E  .227 

562  DATA  £E , 0E , 01 , 01 , 01 , 01 , 0A , 03 , 03 , F3 , 03 , 03 , 03 , 0 1  .26 


16/Commodore  World 


THE  FINAL  CARTRIDGE  II 

No  es  solo  un  freezer,  sino  algo  más... 


•  Turbos  cinta  y  disco 

•  Interface  Centronics 

•  Volcados  pantalla 

•  Basic  4.0 

•  Teclas  función  programadas 


•  24  K.  más  desde  Basic 

•  Nuevos  comandos. 

•  Monitor  C/M. 

•  Monitor  C/M  disco. 

•  Game  killer.  1 


Y  por  supuesto  Freezer  copia  cinta-cinta. 

_  cinta-disco. 

disco-cinta, 
disco-disco. 


MAS  DE  10.000  VENDIDOS 


íí*  .c 

-^0  \  \Í^É 


9.900  Pts. 


THE  EXPERT  CARTRIDGE 

Un  Freezer.  pero  ¡vaya  Freezer! 

#  Monitor  C/M  transparente. 

G  Compresor  de  programas. 

G  Los  salva  en  una  sola  parte. 

G  Permite  incorporar  cargador  y  turbo  en  el  disco.  1 3.900  Ptas. 


•  COMMODORE  64K  (NUEVO  MODELO) 

•  COMMODORE  128 

•  FLOPPY  DISK  1571 

•  MONITOR  1901  (COLOR  40/80  col) 

•  MONITOR  1900  (FOSFORO  VERDE) 


ARCHIVADOR  MULTICAJA,  LLAVE  4.900™ 


Con  múltiples  opciones  para  almacenar  distintos  tipos  de  soportes  informáticos,  cada  caja  con  capacidad  para  los 
siguientes  contenidos. 


100  Diskettes  de  5  1/4  pulgadas 
150  Diskettes  de  3  1/2  pulgadas 
90  Diskettes  de  3  pulgadas 
10  Cintas  de  Data  Cartridge 

50  Diskettes  de  5  1/4  pulgadas  y  50  de  3  1/4  pulgadas 
50  Diskettes  de  5  1/4  pulgadas  y  30  de  3  pulgadas 


50  Diskettes  de  5  1/4  pulgadas  5  cintas  de  Data  Cartridge 
50  Diskettes  de  3  1/2  pulgadas  y  5  cintas  de  Data  Cartridge 
30  Diskettes  de  3  pulgadas  y  5  cintas  de  Data  Cartridge 
100  Diskettes  de  3  1/2  pulgadas  y  3  cintas  de  Data  Cartridge 
60  Diskettes  de  3  pulgadas  y  3  cintas  de  Data  Cartridge 


CONTINUAMOS  TRAYENDO 
LO  MEJOR  PARA  SU  COMMODORE 


LOTO 


SUPER-PRO 


INDISPENSABLE  PARA  PEÑAS  Y  JUGADORES  “SERIOS” 

¡LA  CULMINACION  DE  VARIOS  MESES  DE  TRABAJO  DE  UN 
EQUIPO  DE  CIENTIFICOS  Y  PROGRAMADORES! 

LOTO  super-pro  es  el  programa  MAS  COMPLETO  y  EFICAZ  que  se  pueda  encon¬ 
trar  en  la  actualidad.  Es  más  potente  que  todos  los  programas  que  hayamos  podido 
probar  con  ordenadores  mucho  más  caros. 

M  ATERI  AI.  REQUERIDO 

•  I  Commodore  64  ó  128. 

•  I  unidad  de  discos  1541,  1570  ó  1571. 

•  I  impresora  con  fricción. 

CARACTERISTICAS 

•  Combinaciones  ilimitadas. 

•  Posibilidad  de  jugar  de  7  hasta  40  números. 

•  De  I  hasta  6  grupos. 

•  8  tipos  de  filtros  selectivos. 

•  Utilización  de  filtros  opcional. 

•  Reducciones  ilimitadas  al  5.  4.  5. 

•  7  clases  de  estadísticas  (con  gráficos). 

•  Verificación  automática  del  escrutinio. 

•  Actualización  automática  de  estadísticas. 

•  Generación  de  informes. 

•  Impresión  directa  de  los  boletos  (apro.v  200  hora)  con  impresoras  STAR,  RITE- 
MÁN...,  o  cualquier  impresora  Centronics. 

•  Extenso  manual  de  instrucciones. 

•  Manejo  sencillo. 

Gracias  a  su  sistema  de  filtros  muy  elaborados.  LOTO  super-pro  multiplica  conside¬ 
rablemente  sus  posibilidades  de  acierto.  Es  una  inversión  MUY  RENTABLE  e 
INDISPENSABLE  para  todas  las  peñas  y  los  jugadores  “serios". 

Precio:  1 6.000  Ptas. 


SUPER-PRO 


UNA  HERRAMIENTA  INDISPENSABLE  PARA  PROFESIONALES 

CARACTERISTICAS 

•  Combinaciones  ilimitadas  de  un  doble  a  14  triples. 

•  Desarrollo  de  las  4782969  columnas  del  sistema  integral  de  los  14  triples  en  114 
segundos. 

•  Sistema  especial  de  cálculo  de  alta  velocidad. 

•  Condicionamientos  a  14  resultados  por: 

Columna  base,  figuras  base,  variantes  globales,  variantes  consecutivas,  y  también 
reducciones  a  12  y  13  resultados. 

•  Compaginación  de  todos  los  condicionantes  en  una  sola  combinación. 

•  Tratamiento  de  boletos  simples  y  múltiples. 

•  Concatenación  de  varias  combinaciones. 

•  Dos  modalidades  de  impresión  de  los  boletos. 

•  70  combinaciones  prefijadas  en  el  programa. 

Si  es  un  jugador  profesional  prepare  con  tiempo  la  próxima  campaña  de  las  quinie¬ 
las  de  fútbol;  anticípese  a  la  próxima  jornada. 

QUINIELA  SUPER-PRO:  1 6.000  Ptas. 


COMMODORE  64  C. 
COMMODORE  128. 

UNIDAD  DE  DISCOS  I54IC. 
UNIDAD  DE  DISCOS  1571 
IMPRESORAS  STAR  NI.  10,  GEMINI  160 
IMPRESORAS  RITEMAN  SUPER  C-PLUS 
IMPRESORAS  RITEMAN  II 

COMPATIBLES  PC  , 

¡¡Llámenos!! 


DINAMITAMOS  LOS 
PRECIOS 


LOTERIA 
PRIMITIVA  2 

Otro  programa  de  Loto,  más  sencillo  que  el  anterior. 

CARACTERISTICAS 

•  Desarrollo  de  combinaciones. 

•  4  filtros. 

•  Numerosas  reducciones  prefijadas  al  4  o  al  5 

Estadísticas. 

Generación  de  informes. 


En  Diskette 


3.950' 


PROFESSIONAL  JOYSTICK 

La  nueva  versión  de  nuestro  famoso  COMPETI¬ 
CION  PRO  5000.  Calidad  excepcional  3.990  Ptas. 

QUICKSHOT  2  PLUS 

Un  quickshot  que  no  tiene  nada  que  ver  con  el  que 
conoce...  6  micro-switches  le  dan  una  precisión 
asombrosa.  Casi  al  precio  de  un  joystick  convencio- 
nal-  2.590  Ptas. 

WIZ  CARD 

Joystick  tipo  tarjeta,  manejable  con  una  sola 
mano. 

1.200  Ptas. 

TAMBIEN 

SUPER  GRAPH1X.  21.900 

CABLE  40  80  COLUMNAS  (CR  8).  2.850 

-  CABLE  CENTRONICS.  3.450 

KIT  ALINEAMIENTO  ROBTEK.  2.350 

RATON  CHESSE  MOUSE  (CINTA  DISCO)  14.900 

-  LAPIZ  OPTICO.  5.800 

DESCENDER  (MPS-801).  3.450 

-  PROTEXT.  7.950 

-SUMATEST.  1.190 


CALIDAD  STANDAR 

SS/DD  48  TPI 

10 UNIDADES  .  ... 

ur 

CALIDAD  STANDAR 
DS/DD  48  TPI 

10  UNIDADES 
(C.  PLASTICO) 

wr 

CALIDAD  SUPER 

CALIDAD  SUPER 

DS/DD  48  TPI 

DS/DD  96  TPI 

MARCA KA0  .  AAAn 

2.901 

MARCA  KA0 

3.501^ 

ROM-DISK  GOLIATH  - 1  Mega 

Imagínese...  Hasta  I  megahyte  de  programas,  PERM ANENTF.MENTE  en  la 
memoria  de  su  64  (6  128  en  modo  64).  Con  el  ROM-DISK  instalado,  al  encender  el 
ordenador  aparecen  unos  menús  en  pantalla,  indicándole  todos  los  programas 
disponibles. 

Para  cargar  cualquiera  de  ellos,  basta  con  pulsar  una  tecla,...  y  ya  lo  tiene  cargado. 

Un  programa  de  130  bloques  carga  en  0,3  segundo! 

Por  supuesto,  si  desea  cargar  un  programa  desde  cassette  o  disco,  o  trabajar  en 
basic,  puede  hacerlo  como  antes. 

El  ROM-DISK  GOLIATH  se  compone  de  una  tarjeta  que  se  enchufa  en  el  port  de 
expansión,  sin  ningún  montaje  (como  un  cartucho).  I.o  único  que  tiene  que  hacer  es 
grabar  sus  programas  en  EPROMS  (2764  hasta  27512).  Para  ello,  puede  utilizar 
nuestro  programador  de  Eproms.  Si  prefiere,  se  lo  haremos  todo.  Vea  nuestro  servi¬ 
cio  GOLIATH... 

16.900  Pías. 

ROM-DISK  •  256  K. 

Fl  hermano  pequeño  de  GOLIATH... 

Utiliza  las  Eproms  2764  hasta,  27128  ó  27256. 

Mismas  características  que  (¡OI.IATH  excepto  tamaño  y  capacidad. 

10.900  Ptas. 

i M POR  r ANTE:  Los  ROM-DISKS  se  venden  sin  Eproms.  La  capacidad  indi¬ 
cada  para  ROM-DISK  es  la  capacidad  máxima.  Usted  puede,  por  lo  tanto,  poner  las 
Eproms  que  quiere,  poco  a  poco... 

Por  supuesto,  los  programas  grabados  en  Eproms  no  se  borran  cuando  apaga  el 
ordenador. 

PROGRAMADOR  DE  EPROMS  GOLIATH 

Excepcional:  El  programador  de  Eproms  que  permite  grabar  Eproms  de  hasta  64 
K.  (desde  2764  hasta  27512). 

12,5  y  21  voltios. 

Conexión  al  port  del  usuario. 

Uso  sencillo.  Manual  y  software  en  castellano  (disco  o  Eprom). 

15.900  Ptas. 


PROLOGIC  DOS  CLASSIC 

Un  DOS  absolutamente  impresionante  para  su 
unidad  de  discos. 

Carga  los  programas  65  veces  más  rápido. 

Salva  sin  verificar  65  veces  más  rápido. 

Salva  y  verifica  30  veces  más  rápido. 

Lee  y  graba  ficheros  (SEQ  y  REL)  30  veces 
más  rápido  (15  veces  con  verify). 

Formatea  en  12  segundos  en  35  ó  40  pistas. 

Y  mucho  más... 

PROLOGIC  DOS  CLASSIC:  27.900  Ptas. 

PROLOGIC  DOS  L.C. 

Una  versión  más  económica,  pero  con  presta¬ 
ciones  similares.  Utiliza  el  port  del  usuario. 

PROLOGIC  L.C.:  19.900  Ptas. 

REX-SPEEDER 

Lee  y  graba  10  veces  más  rápido. 

Teclas  de  función  programadas. 

Formatea  en  25  segundos. 

Y  más... 

10.900  Ptas. 


VENTILADOR  FLOPPY 


Montado  caja  plástico. 


6.900  Ptas. 


TARJETAS  DE  EPROMS 


PROGRAMADOR  QUICKBYTE II 


DUO:  Permite  instalar  2X276u.  ó  2X2716 

1.700  Ptas. 


Programa  todo  tipo  de  Eprom’s. 
—  Software  en  Rom. 

3  Algoritmos  de  programación. 


BORRADOR  DE  EPROMS 

Borra  Los  eproms  en  3/5  minutos. 


19.900  Ptas. 


VARIO:  Permite  instalar  2X276u.  ó  2X27128 

2.900  Ptas. 


—  Solicite  nuestro  catálogo,  enviando  200  ptas.  en 
sellos,  los  cuales,  serán  deducidas  de  su  primer 
pedido. 


9.500  Ptas. 


Contrareembolso  sin  gastos.  (Envíos  inferiores  a 
2.500  Ptas.,  añadir  275  Ptas.)  Excepto.  Ordenado¬ 
res,  impresoras,  unidades  de  disco,  monitores  etc. 


CONDICIONES  ESPECIALES  PARA  DISTRIBUIDORES 


fffiSCfí.SA 


C/  Coso.  87  -  6-  A  -  Tolf  3Q  QQ  fil  -  50001  ZARAGOZA 


BOLETIN  DE  PEDIDO 


Deseo  me  envíen: 
.  artículos  N. 


artículos  N. 
artículos  N. 
artículos  N. 
artículos  N. 


ptas. 

ptas. 

ptas. 

ptas. 

ptas. 


Nombre  . 

Dirección  . 

Población  Drovincia  . 


□  Catálogo  □  Contra  reembolso  □  Talón  adjunto 


563 

DATA 

564 

DATA 

565 

DATA 

566 

DATA 

567 

DATA 

568 

DATA 

569 

DATA 

570 

DATA 

571 

DATA 

572 

DATA 

573 

DATA 

574 

DATA 

575 

DATA 

576 

DATA 

577 

DATA 

578 

DATA 

579 

DATA 

580 

DATA 

581 

DATA 

582 

DATA 

583 

DATA 

584 

DATA 

585 

DATA 

586 

DATA 

587 

DATA 

588 

DATA 

589 

DATA 

590 

DATA 

03,03,01 ,F1 ,01 ,0E,FE,0E,F1 ,0E,0E,F1 ,0E,01 
1D,0D,CD,0D,0D,FD,0D,FD,0D,FE,C1 ,71 ,01 ,FE 
01 ,F1 ,01 ,01 ,03,03,03, 13, F3,F3, 13,03, F3, 03 
1 1 ,F1 ,01 ,01 ,FE,0E,01 ,01 ,61 ,01 ,0E,C1 ,6D,0D 
6D , 8D , CD , 0D , FD , CD , 0D , 0E , 8E , 0E , FE , 0E , 0 1 ,61 
11 ,01 ,B4,B4,0E, 1E, 1E,3E,0E,0E,BE,F1 ,01 ,C1 
F 1 , 33 , 03 , 03 , F3 , 03 , F3 , 03 , FE , C 1 , 0D , 0D , 3D , 0D 
4D , 0D , 0D , FD , 0D , 0E , 0A , 0E , 07 , FE , 01 ,01 ,01 ,0E 

04, 04, 04, 01, F1,F1, 01, 01, Bl, 01, 01, 01, 01, 03 
03 , 03 , 03 , 03 , 03 , 03 , 0E  ,  0 1  ,  0D  ,  0D  ,  0D  ,  0D  ,  0D  ,  0D 

OD, 0D,0D,0E,0E,0E,CE,0E,01 ,01 ,01 ,01 ,04,04 

OE, 0E,03,F3,03,0E,0E,0E,0E,0E,01 ,01 ,0E,03 
F3 , 03 , 0E , 0E ,01,01, 0D , 0D , 0D , 0D , 0D , FD , 0D , 0D 

OD,  BE, 00, 00, 00, 0E, 01 ,01 ,01 ,01 ,03,03, 13,03 
1 3 , 03 , B3 , B 1 , B3 , 03 ,F1,F1,F1, 0E , 0E , FE , 1 E , 1 E 
FE , FE , 0 1 , FE , 15,35, F5 , 05 , 05 , 05 , 05 , C5 , 05 , FE 
FE , 0E , FE , 1 E , F 1 , F 1 , 0E , 0E , 4A , 03 , F3 , 03 , 03 , 1 3 

1 3 , 03 , F3 , F3 , 01 , F 1 , 01 , 0E , 0E , FE ,01 ,01 ,01 ,01 
01 ,0E,05,F5,05, 15,05,05,F5,F5,05,0E,00,00 
00 , 0E , 0 1 ,01 , 0E , FE , EA ,13, 03 , 03 , 03 , 03 , F3 , F 1 
63 , C3 , F 1 , 0 1 , F 1 , FE , 0E , 0E ,01, 0E , 0E ,01, 0E , FE 
05 , 05  ,  B5 , 05 , 05 , 05 , 05 , 05 , 05 , 0E  ,  00 , 00 , 00 , 0E 
01 ,01 ,01 ,01 ,03, 03,F3,03, 03,03, 03, 03, 03,03 
01 ,01 ,01 ,01 ,0E,FE,01 ,01 ,01 ,01 ,0E,0E,05,05 
05 , 05 , 05  ,  C5 , 05 , 0 1  , 05 , 0E  ,  0E  ,  0E  ,  0E  ,  0E  ,  0E  ,  0E 

OE ,  0E , FE , 0E , 0E , 0E , 0E , 0E , BE , 0E , 0E ,01 ,01 ,01 
01 ,01 ,01 ,01 ,01 ,0E,0E,0E,0E,0E,05,F5, 15,F5 
B5, 85, 05, 01 ,05 


.  105 
.  198 
.  183 
.  136 
.49 
.  12 
.  139 
.54 
.  163 
.  118 
.201 
.  18 
.233 
.246 
.  117 
.  196 
.49 
.  120 
.21 
.  112 
.203 
.212 
.  193 
.244 
.241 
.72 
.247 
.56 


PROGRAMA:  GEN. 3 


LISTADO  5 


10  REM  GEN  PDS.3 

11  : 

1 2  P0KE56 ,132: CLR : A=35032 : B=35839 

13  FORI=ATOB 

1 4  READAS : SYS828 , I , AS : S=S+VAL ( AS ) 

15  NEXT: IFS<  >80 1 0THENPR I NT “ ERROR " 

16  P0KE43,216: P0KE44, 136 

17  P0KE45 , 0 : P0KE46 , 1 40 

18  SAVE " 3 . PDS " , 8 : END 


19  i 

600 

DATA 

601 

DATA 

602 

DATA 

603 

DATA 

604 

DATA 

605 

DATA 

606 

DATA 

607 

DATA 

608 

DATA 

609 

DATA 

610 

DATA 

61 1 

DATA 

612 

DATA 

613 

DATA 

614 

DATA 

615 

DATA 

616 

DATA 

617 

DATA 

618 

DATA 

619 

DATA 

620 

DATA 

621 

DATA 

622 

DATA 

623 

DATA 

624 

DATA 

625 

DATA 

626 

DATA 

627 

DATA 

628 

DATA 

629 

DATA 

630 

DATA 

631 

DATA 

632 

DATA 

633 

DATA 

634 

DATA 

635 

DATA 

636 

DATA 

637 

DATA 

638 

DATA 

639 

DATA 

640 

DATA 

641 

DATA 

642 

DATA 

643 

DATA 

644 

DATA 

645 

DATA 

646 

DATA 

647 

DATA 

648 

DATA 

649 

DATA 

650 

DATA 

651 

DATA 

652 

DATA 

653 

DATA 

654 

DATA 

655 

DATA 

656 

DATA 

657 

DATA 

> , 85 , EF , FF 


b  ,  00 , 06 , 06  ,  FF  ,  FF  ,  00 , 3C , 
8 , 3C , 66 , 3C , 06 , 3C , FF , FF , 


B,FF,31 ,F6, 


9 , 3C  ,  66 , 06 , 0C  ,  30 , 60 , 7E  , 
b ,  3C  ,  00 , 06 , 0E  ,  1 E ,  66 , 7F  , 


9 , 3C ,  66 , 66 , 3E  ,  06 , 66 , 3C , 


a ,  7E , 

9,3C, 


, 03 , F 1 , FC , DF , CF , 03 , E 1 , 38 , CD , 

, F8 , E0 , F0 , E6 , CE , FC , F0 , E0 , 1 8  , 

, 18, 18,00, 10,30, 7F,7F, 30, 10, 

, 00, 00, 00, 00, FF, 00, 18, 18,00. 

,  3C ,  06 , 3C  ,  60 , 3C  ,  FF  ,  FF  ,  00 , 3C  , 
lfFF,FF, 

, 66 , 3C , 

, 66 , 3C , 

,00,30, 

»FF ,FF , 

,00,00, 

,F1 ,F4 , 

,38,18, 

, 00 , 3C , 

,06,06, 
l , 7C , 66 , 

,66,66, 

, 00 ,FF , 

,01 ,E7 , 

, 00 , 7E , 

,66,06 , 

,rr  ,pp  ,  uu  ,  uu  ,  00 ,  FF  , 
,E3,C9,9C,3E,FF,FF, 

, 00 , FF , FF , FF , FF , FF , 

, FF ,FF , FF , FC , F8 , F0 , 

, FF , FF , 80 , 80 , 00 , 7E , 
,C3,DB,DB,DB,DB, 18, 
cc  ”  ,  EB ,  09  , 

, E7 , DB , 

,  FF , 08 , 

, DF , C0 , 

i , 80 , E0 , 

. , 8F , BC , 

, FF , FC , 

r  r  ,rc,rt,ru,  uu  ,  uu  ,  «jkj  ,  kju  ,  u«J  ,  F0  ,  FC  , 

FC , FF , FF , FC , F0 , C0 , 7E , 1 8 , 0C , 0C , 06 , 
7E,62,6E,E3,EF,6E,6E,7E, 18, 18,00, 

18. 18, E7,E7,E7,E7,81 ,C3,E7,FF, 18, 

18. 18. 18. 18.18. 18. 18. 18, FF,7E,3C, 

3F, 1F,0F ,07,03,01 ,00,00,00,00,00, 

00 , 07 , 0F , 0C , 1 C , F8 , F0 , 00 , FF , F8 , F0 , 

0F , FF , 1 8 , 3C , 7E , 66 , 66 , E7 , C3 , 00 , E7 , 

99 , 18 , 3C , FF , 00 , F0 , F8 , 1C , 0C , 0F , 07 , 

07 , E3 , F3 , F0 , F8 , FF , 00 , 20 , 60 , FC , FC , 
FF,F7,F7,FF,F7,63,F7,FF,01 ,03,07, 
7F,FF,80,88,98,BF,BF,98,88,80, 18, 

1F,18, 18, 18, 00 , 3C , 7E , 7E , 7E , 7E , 3C , 00 ,18,18 
18, 1F, 1F,00,00,00,00,00,00,F8,F8, 18, 18, 18 

, 00 , 00 , 00 , 00 , 00 , FF , FF , 00 , 00 , 00 ,1F,1F,18 
,00, 00, 00. 00. FF 


9 , 1 8 , FF , 


632  DATA  FF ,FC , F0 , C0 , 00 , 00 , 00 , 00 , 03 
5 , 00 , F9 , F 1 , E5 , CD , 9D , 3C , FF 


t , qj , cp  ,  r 
l,3C,7E,FF 
0,00,00,00 
0, 18, 18,FF 
C  ,  06 , 1C  ,  06 
, 00 , 3C , 60 
, FF , FF , 00 
, 66 , 3C , FF 
,66,00,66 
, B6 , 96 , 86 
1 , 00 , 00 , 00 
4 , 36 , FF , FF 

B,  18, 18, 18 

C ,  66 , 06 , 1C 
* , 00 , 7E , 60 
■ ,  66 , 3C ,  00 
• , 3C , 66 , 66 

F,C0,DB,C0 
' , FF ,0E ,  18 

: ,  00 , 00 , 00 

►  ,0C,  18,00 
r ,FF ,FF ,FF 
F ,FF ,FF ,FF 
:F  ,  FF  ,  FC ,  E0 
"0 , E0 , 80 , 00 
rE, 18, 18, 18 
l,FF,EF,E7 
, 98 , DB ,FF 
,DB,DB,E7 
,0C,0E,FF 
,FF,C0,F0 
1 ,  F0 , F8 ,FC 
, F0 , C0 , 80 
C ,FE ,FE ,FF 
, FF , C0 , F0 
>,06,03,00 
I ,  FF  ,  FF  ,  00 
I,  18,18,18 
:,  18,FF,7F 
«i ,  00 , 00 , 00 
0 , F3 , E3 , 07 
7 , C3 , 81 , 99 
7 , 00 , FF , 0F 
C, 60, 20, 00 
7 , 0F  ,  1 F  ,  3F 
8, 18, 18, 1F 
C.00. 18. 18 


18, 18, 18, 18, 18,FF,FF,00,0 


3,  18 
3,C7 


■  , wu , «w 
,18,18 
i,C0,C0 
, 3C , 30 
, FF ,FF 
, 18,18 
,00 ,18 
, D6 , C5 


,uuj  ,  uw  ,FF 
,  18 , FF , FF 
J,C0,C0,FF 
J,3C,F0,FF 
:,8C,9E,BF 
),  18,FF ,31 
i,  18,00, FF 
¡.FR.P7.FR 


.82 
.243 
.48 
.253 
.  126 
.111 
.  126 
.245 
.  100 
.251 
.252 
.  185 
.50 
.249 
.98 
.  125 
.  184 
.  139 
.  194 
.67 
.  146 
.  159 
.  108 
.233 
.  18 
.  19 
.  128 
.  197 
.  154 
.5 

.228 
.  1 
.2 

.  183 
.86 
.  183 
.96 
.  105 
.228 
.237 
.60 
.53 
.  148 
.  137 
.98 
.67 
.40 
.203 
.20 
.111 
.226 
.  101 
.  106 
.  117 
.  186 
.  193 
.60 
.81 
.  164 
.83 
.224 
.  19 
.230 
.119 
.222 
.  137 
.114 
.  17 


PROGRAMA:  GEN. 4  LISTADO  6 

10  REM  GEN  PDS. 4  .86 

11:  .243 

12  P0KE56 , 132: CLR: A=33792: B=3467 1  .170 

13  FORI=ATOB  .253 

14  READAS : SYS828 , I , AS : S=S+VAL ( AS )  .126 

15  NEXT:  IFSO20498THENPRI NT  "ERROR"  .5 

16  P0KE43 , 0 : PQKE44 , 1 32  .44 

17  P0KE45 , 1 12: PQKE46 , 135  .123 

18  SAVE " 4 . PDS " , 8 : END  .116 

19  :  .251 


700  DATA  70, 40, 40, 40, 40, 40, 6E , 70, 40, 51 ,57,20,20,20  .118 

701  DATA  20,20,20,20,20,20,20,20,81 ,2A,2A, 93, 2A,2A  .217 

702  DATA  A0 , 20 , 70 , 72 , 5A , 40 , 54 , 72 , 40 , 85 , 98 , 94 , 5D , 9E  .4 

703  DATA  20 , 09 , 20 , 5E , 5D , 5D , 20 , 8D , A0 , 58 , 40 , 40 , 40 , 40  .17 

704  DATA  40 , 40 , 40 , 40 , 54 , 6E , 84 , 2A , 2A , 92 , 2A , 2A , A0 , 20  .254 

705  DATA  5D , 6D , 40 , 40 , 47 , 7D , 20 , 20 , 20 , 20 , 6B , 40 , 40 , 40  .35 

706  DATA  40 , 40 , 73 , 5D , 70  «41, 53 , 20 , 20 , 79 , 7C , 7B , 20 , 20  .34 

707  DATA  20 , 20 , 20 , 5E , 5D , 20 , 79 , 7C , 7B , 20 , 20 , 20 , 6D , 40  .65 

708  DATA  51 ,57, 20, 20, 20, 20, 20,20, 5D, 77, 78, 20, 75, 76  .234 

709  DATA  5D , 5D , 6B , 9F , 86 , 92 , 2A , 2A , 2A , 2A , A0 , 42 , 4E , 40  .223 

710  DATA  54,71 ,A0, 45, 52, 20, 20, 20, 20, 70, 40,40, A0,A0  .14 

711  DATA  51 ,57, 20, 20, 20,69, 6B, 40, 40, 40, 72,40, 7D,5D  .61 

712  DATA  5D ,16, A0 , A0 , A0 , A0 , A0 , A0 , A0 , 55 , 55 , 40 , 54 , 40  .206 

713  DATA  A0,B1 ,56, 72,54, 5A, 72, 7D, 20,20, A0,2A,2A,A0  .13 

714  DATA  58 , 40 , 50 , A0 , 5D , 0D ,01 , 10, 5D , 20 , 20 , 5D , 5D ,31  .84 

715  DATA  8 1 , 8D , 2A , 2A , 7E , A0 , A0 , 49 , 49 , 40 , 54 , 40 , A0 , 44  .117 

716  DATA  46 , 5D , 20 , 20 , 5D , 70 , 40 , 40 , A0 , A0 ,41, 53 , 20 , 20  .106 

717  DATA  20,5F,5D,20,74,20,5D,70,72,5B,5B,9F,2B,2C  .201 

718  DATA  2F , 4D , A0 , A0 , A0 , 4A , 4B , 40 , 54 , 40 , 7D , 20 , 20 , 6D  .46 

719  DATA  47, 40, 7D,5D, 70, 40, 41 ,53,20,20,20,20,20,20  .151 

720  DATA  5D, 04, 20, 08, 5D,5D,5D,5D,6D, 51 ,57,20,20,20  .198 

721  DATA  20,20,20,20,20,20,20,20,81 ,2A,2A, 93, 2A,2A  .237 

722  DATA  A0 , 5D , 5D , 6F , 6F , 6F , 79 , 7C , 7B , 6F , 6F , 6F , 6B , 43  .232 

723  DATA  40 , 40 , 73 , 5D , 5E , 5D , 20 ,8D , A0 , 58 , 40 , 40 , 40 , 40  .171 

724  DATA  40 , 40 , 40 , 40 , 54 , 6E , 84 , 2A , 2A , 92 , 2A , 2A , A0 , 5D  .190 

725  DATA  5D , A0 , A0 , 14 , 09 , 0D , 05 , 12 , A0 , A0 , 5D , 3A , 7F , 3B  .187 

726  DATA  5D , 5D , 5D , 5D , 70 , 4 1 , 53 , 20 , 20 , 79 , 7C , 7B , 20 , 20  .10 

727  DATA  20 , 20 , 20 , 5E , 5D , 20 , 79 , 7C , 7B , 20 , 20 , 5D , 5D , Bl  .199 

728  DATA  2A , 2A , 2A , A0 , 2A , 2A , 2A , A0 , 6B , 40 , 40 , 40 , 73 , 5D  .80 

729  DATA  59 , 5D , 6B , 9F , 86 , 92 , 2A , 2A , 2A , 2A , A0 , 42 , 4E , 40  .67 

730  DATA  54,71 ,A0, 45,52,20, 20, 20,20, 5D,5D,B2,2A,2A  .246 

731  DATA  2A,A0,2A,2A,2A,A0,5D,67,68,6A,5D, 1E,5D,5D  .215 

732  DATA  5D , 16 , A0 , A0 , A0 , A0 , A0 , A0 , A0 , 55 , 55 , 40 , 54 , 40  .226 

733  DATA  A0 , B2 , 56 , 72 , 54 , 5A , 72 , 7D , 5D , B3 , 2A , 2A , 2A , A0  .169 

734  DATA  2A , 2A , 2A , A0 , 6B , 40 , 40 , 40 , 73 , 5D , 5D , 5D , 5D , 32  .132 

735  DATA  81 , 8D  ,  2A ,  2A  ,  7E  ,  A0  ,  A0 , 49 , 49 , 40 , 54 , 40  ,  A0 , 44  .137 

736  DATA  46 , 5D , 20 , 20 , 5D , 20 , 5D , A0 , A0 , 94 , 2A , 2A , 2A , A0  .190 

737  DATA  A0 , A0 , 5D , IB , 1C , 1 D , 5D , 59 , 6B , 5B , 5B , 9F , 2B , 2C  .45 

738  DATA  2F , 4D , A0 , A0 , A0 , 4A , 4B , 40 , 54 , 40 , 7D , 20 , 20 , 6D  .66 

739  DATA  47 , 40 , 7D , 20 , 5D , A0 , 0D , 05 , 0D , 0F , 12 , 09 , 0 1 , A0  .135 

740  DATA  6B, 40, 72, 40, 73, 5D,5D,5D,6D, 51 ,57,20,20,20  .4 

741  DATA  20,20,20,20,85, 1F, 40, 40,81 ,2A,2A, 93, 2A,2A  .247 

742  DATA  A0 , 20 , 5D , 8D , A0 , 9F , 2A , 2A , 21 , 9F , A0 , A0 , 5D , 4C  .20 

743  DATA  5D , 20 , 5D , 5D , 5E , 5D , 20 , 8D , A0 , 58 , 40 , 40 , 40 , 40  .199 

744  DATA  40 , 40 , 40 , 40 , 54 , 6E , 84 , 2A , 2A , 92 , 2A , 2A , A0 , 20  .38 

745  DATA  5D , 90 , A0 , A0 , 2A , 2A , 2A , A0 , 92 , A0 , 6B , 40 , 71 , 40  .189 

746  DATA  73 , 5D , 5D , 5D , 70 , 41 ,53 , 20 , 20 , 79 , 7C , 7B , 20 , 20  .30 

747  DATA  20 , 20 , 20 , 5E , 5D , 20 , 79 , 7C , 7B , 20 , 20 , 70 , 7D , 90  .77 

748  DATA  8D , A0 , 2A , 2A , 21 , A0 , A0 , A0 , 5D , 20 , 20 , 20 , 5D , 5D  .246 

749  DATA  59 , 6D , 7 1 , 9F , 86 , 92 , 2A , 2A , 2A , 2A , A0 , 42 , 4E , 40  .83 

750  DATA  54,71 ,A0, 45,52, 20,20, 20,20, 48,20, 6F,6F,6F  .108 

751  DATA  79 , 7C , 7B , 6F , 6F , 6F , 6B , 40 , 40 , 40 , 73 , 5D , 5D , 20  .57 

752  DATA  20 , 1 6 , A0 , A0 , A0 , A0 , A0 , A0 , A0 , 55 , 55 , 40 , 54 , 40  .158 

753  DATA  A0 , B3 , 56 , 72 , 54 , 5A , 72 , 7D , 20 , A0 , A0 , 86 , 89 , 8C  .101 

754  DATA  94 , 92 , 8F , A0 , 5D , 20 , 20 , 20 , 5D , 5D , 5D , 20 , 20 , 33  .84 

755  DATA  81 , 8D , 2A , 2A , 7E , A0 , A0 , 49 , 49 , 40 , 54 , 40 , A0 , 44  .157 

756  DATA  46 , SD , 20 , 20 , 5D , 20 , 20 , A0 , A0 , 65 , A0 , 63 , A0 , 61  .208 

757  DATA  A0 , A0 , 5D , 20 , 20 , 20 , 5D , 6D , 71 , 40 , 40 , 9F , 2B , 2C  .89 

758  DATA  2F , 4D , A0 , A0 , A0 , 4A , 4B , 40 , 54 , 40 , 7D , 20 , 20 , 6B  .70 

759  DATA  47 , 40 , 7D , 20 , 20 , 86 , 92 , 2A , 2A , 2A , 23 , 2A , A0 , A0  .79 

760  DATA  6D, 40, 40, 40, 7D, 20, 20, 20, 20, 20, 20, 20, 20, 20  .56 

761  DATA  20,20,20,20,92, 1F, 40, 40, 40, 40,40, 7D, 20, 20  .119 

762  DATA  20 , 20 , 20 , 92 , 85 , A0 , 2A , 2A , A0 , A0 , A0 , A0  .76 


PROGRAMA:  GEN. 5 


LISTADO  7 


10  REM  GEN  PDS. 5  .90 

11:  .243 

12  A= 1 024 : B= 1 943  .96 

13  FORI=ATOB  .253 

14  READAS : SYS828 , I , AS : S=S+VAL ( AS )  .126 

15  NEXT: IFS< >501 62THENPRI NT" ERROR"  .133 

1 6  P0KE43 , 0 : P0KE44 ,4  .106 

17  P0KE45 , 1 52 : P0KE46 , 7  .47 

18  SAVE "5. PDS" , 8: END  .132 

19  :  .251 


800  DATA  64,64,64,64,64,64,64,64,64,64,64,64,64,64  .55 

801  DATA  64,64,64,64,64,64,64,64,86,87,87,88,89,89  .82 

802  DATA  64, 64, EA, 64, 64, 64, 8E, 64, 64, 64, 64, 64, 64, 66  .35 

803  DATA  64,67,64,68,64,64,64,64,64,64,64,64,64,64  .62 

804  DATA  64 , 64 , 64 , 64 , 80 , 64 , 8A , 8B , 8B , 8C , 8D , 8D , 64 , 64  .57 

805  DATA  EB, 64, 64, 64, 8E, 64, 64, 64, 64, 64, 64, 64, 64, 64  .166 

806  DATA  64,64,64,64,64,64,64,64,64,66,67,68,64,64  .205 

807  DATA  64, 64, 64, 64, 64, 64, 66, 67, 68, 64, 64, 64, EC, 64  .154 

808  DATA  64, 64, 64, 64, 64, 64, 64, 64, 64, 69, 69, 64, 6A,6A  .75 

809  DATA  64 , 64 , 64 , 64 , 64 , 64 , 79 , 7A , 7B , 7C , 8F , 64 , 64 , 64  .186 

810  DATA  81 ,64, 64, 64, 64, 64, 64, 64, 64,64, ED, 64, 64, 64  .129 

811  DATA  64,64,64,64,64,64,64,64,64,64,64,64,64,64  .66 

812  DATA  64,91,64,64,64,64,64,64,64,64,64,64,82,64  .127 


1 — 20/Commodore  World 


813 

DATA 

814 

DATA 

815 

DATA 

816 

DATA 

817 

DATA 

818 

DATA 

819 

DATA 

820 

DATA 

821 

DATA 

822 

DATA 

823 

DATA 

824 

DATA 

825 

DATA 

826 

DATA 

827 

DATA 

828 

DATA 

829 

DATA 

830 

DATA 

831 

DATA 

832 

DATA 

833 

DATA 

834 

DATA 

835 

DATA 

836 

DATA 

837 

DATA 

838 

DATA 

839 

DATA 

840 

DATA 

841 

DATA 

842 

DATA 

843 

DATA 

844 

DATA 

845 

DATA 

846 

DATA 

847 

DATA 

848 

DATA 

849 

DATA 

850 

DATA 

851 

DATA 

852 

DATA 

853 

DATA 

854 

DATA 

855 

DATA 

856 

DATA 

857 

DATA 

858 

DATA 

859 

DATA 

860 

DATA 

861 

DATA 

862 

DATA 

863 

DATA 

864 

DATA 

865 

DATA 

64,64, 64 
64,64,64 
64,64, 7D 
64,64,64 
64,64, 64 

64.64. 64 

85.64. 64 
64 , 6C , 64 

64.64.64 

64 . 64 ,  F 1 
64,64, 64 
64,64,64 
F2 , 64 , 64 
64,64, 64 

64.64.64 
97,98,99 

77.64.64 

81.64.64 
99,64, 9A 

64.92. 64 

64.64. 64 
9A , 9B , 9C 
64,64, 7D 
64,64, 64 
64,64, 64 

64.64. 64 

85.64. 64 

64.64. 64 
64,64, 64 

64.64,  F8 
64,64, 64 
64,64,64 
F9 , 64 , 64 
64,64,64 

64.64. 64 
BB , 64 , 74 

78.64. 64 

81 .64.64 
66,67, 68 

64.93.64 

64.64. 64 
64,64,64 
64 , 64 , 7D 
64,64, 64 
64,64, 64 

64.64.64 

85.64. 64 
64 , 2C  ,  32 
33 , 33 , 2C 
2C , 32 , 43 
13 , 5D , 03 
33,33, 2C 
2C , 32 , 43 


,64,85, 
,64,64, 
, 7E , 64 , 
,64,64, 
,64,64, 
,64,64, 
,64  ,F0, 
,  6D  ,  64 , 
,64,64, 
,64,64, 
,64,64, 
,64,80, 
,94,94, 
,64,64, 
,64,64, 
,64, 9A, 
,64,64, 
,64,64, 
,9B,9C, 
,64,64, 
,64,85, 
,64,64, 
, 7E , 64 , 
,64,64, 
,72,72, 
,64,64, 
,  64 , F7 , 
,64,64, 
,64,64, 
, BF , 64 , 
,64,64, 
,64,80, 
, 64 , A8 , 
,64,64, 
,64,64, 
, 75 , 7F , 
,64,64, 
,64,64, 
,64,64, 
,64,64, 
,64,85, 
,64,64, 
, 7E , 64 , 
,64,64, 
,E7,E8, 
,64,64, 
,64,  FE, 
, 43 , 2C , 
,33,32, 
, 2C , 33 , 
,83,20, 
,33,32, 
,  2C , 33 , 


64.64. 64 
6B , B9 , BA 

64.90.64 
64 , EF , 64 

64.64.64 
64,64, 64 
64,64,64 
64,64,64 
64,64,64 
64,66,67 
64,64, 64 
64 , 8A , 8B 
94,94,94 
64,64,64 
64,66,67 
9B , 9C , 64 
64,79, 7A 
64,64, 64 
64 , 64 , 6F 
64,64,64 
64,64,64 

64.64.64 

64.90. 64 
64 , F6 , 64 
72,64,76 

64.64.64 
64 , A0 , A0 
64,64,64 
64,64,64 
A2,A3,A4 
64,64,64 
64 , 8A , 8B 
A9 , AA , 64 
64,64,64 
64,66, 67 
A7 , 64 , 64 
64 , 79 , 7A 
64,64,64 
64,64,64 
64,64,64 

64.64.64 
E4,E5,E6 

64.90.64 
64 , FD , 64 
E9 , 64 , 64 

64.64.64 
64 , 64 , B8 
33 , 32 , 2C 
2C , 32 , 43 
32 , 2C , 34 
33 , 33 , 2C 
2C , 32 , 43 
33 , 2C , 33 


, EE , 64 , 64 
,64,64,64 
,64  ,*>4,83 
,64,64,64 
,64,64,64 
,84,64,64 
,64,64,64 
,64,64,64 
,86,87,87 
,68,64,64 
,64,64,64 
,8B,8C,8D 
,64,64,64 
,64,66,67 
,68,64,64 
,64,64,64 
,7B,7C,8F 
,  64 , 64 , F4 
,70,71,64 
,64,64,64 
,  F5 , 64 , 97 
,64,64,64 
,64,64,83 
,  64 , 64 , 9D 
,64,64,64 
,84,64,64 
,  A0, A0, A0 
,64,64,64 
,86,87,87 
,  A5 , A6 , 64 
,64,64,64 
,8B,8C,8D 
,  AB , 64 , 64 
,64,66,67 
,68,64,64 
,64, El ,E2 
,7B,7C,8F 
,  64 , B7 , FB 
,64,64,64 
,64,64,64 
,  FC , 64 , 64 
,64,64,64 
,64,64,83 
,  64 , AC , 64 
,64,64,64 
,84,64,64 
,  AF , B0 , B 1 
,  34 , 33 , 2C 
,  2C , 33 , 34 
,  33 , 2C , 32 
,  33 , 33 , 2C 
,  2C , 33 , 32 
,  34 , 2C 


,95,95,96 
,64,64,91 
,64,64,64 
,64,64,64 
,64,64,64 
,64,64,64 
,64,64,64 
,64,64,64 
,88,89,89 
,64,64,64 
,64,64,64 
, 8D , 64 , 64 
,6E,6E,6E 
,68,64,64 
, 64 , F3 , 64 
,64,64,64 
,64,64,64 
,64,97,98 
,64,64,64 
,64,82,64 
,98,99,64 
,64,64,92 
,64,64,64 
, 9E , 9F , 64 
,64,64,64 
,64,64,64 
,  A0,A0,64 
,64,64,64 
,88,89,89 
,64,64,73 
,64,64,64 
,  8D , 64 , 64 
,64,64,64 
,68,64,64 
,  64 , FA , BB 
, E3 , 64 , 64 
,64,64,64 
,64,64,64 
,64,64,64 
,64,82,64 
,64,64,64 
,64,64,93 
,64,64,64 
,  AD , 64 , AE 
,64,64,64 
,64,64,64 
,  B2 , B3 , 64 
,  32 , 43 , 2C 
,  2C , 33 , 33 
,43, 00, Al 
,  32 , 43 , 2C 
,  2C , 34 , 33 


.  188 
.  145 
.28 
.  173 
.72 
.89 
.  110 
.213 
.  102 
.39 
.78 
.77 
.  142 
.225 
.32 
.  165 
.6 
.5 
.38 
.21 
.52 
.73 
.48 
.9 

.  164 
.  109 
.  124 
.95 
.  122 
.5 
.98 
.97 
.238 
.245 
.228 
.217 
.42 
.  39 
.28 
.  169 
.222 
.229 
.  68 
.39 
.  176 
.  129 
.  202 
.  175 
.  130 
.221 
.  22 
.  125 
.84 


PROGRAMA:  PRUEBA  DE  SONIDO  LISTADO  8 


0  RUN  35: CFLCH  IZQ I SALTOS  BASIC  .240 

1  POKE  2 1 1 , X : POKE  214, Y: SYS58732: RETURN: PRINT  AT  X  .199 
,Y 

2  POKE49476,0:6OTO5 150: AVISOS  .250 

3  60T05 180 -.AVISO  Y  ESPERA  .17 

4  G0T05 i 75 : ERROR  DISCO  Y  TECLA  .100 

5  POKE 49476, 220 :B0T05 150: AVISO  TEMPORAL  .17 

6  GOTO5400: PONE  O  QUITA  "?M  .30 

7  GOTO5460: PONE  SUENO  .105 

8  GOTO5480: QUITA  SUENO  .116 

9  GQTO5500: INPUT  .227 

10  GOTO6960 : F I ND  .154 

1 1  GOTO5640 : LOAD  .131 

1 2  GOTO5670: SAVE  . 228 

13  I=PEEK (53249) : I=- ( I >=106) - ( I >=162) : RETURN: VOZ  1  .119 
-2-3 

14  GOTO7390: ERROR  DISCO  .98 

15  GOSUB17: Z=ST : INPUT#15, I,I$,I$,J$: PQKE49465, 1 : GO  .207 
T018: CANAL  15 

16  SYSZD, I:I=PEEK (49283) : RETURN: PEEK>40959  .76 

17  POKE53269,0: RETURN: SPRI TES  NO  .97 

18  P0KE53269, 3: RETURN: SPRI TES  SI  .250 

19  G0T052 1 5 : D I R  .185 

20  GOTO5250: BLOQUES  .76 

21  GOTO7410: PS.  A  PS !  .249 

22  POKE49492,1:POKE54296,0: RETURN: VOL  OFF  .144 

23  POKE49492,0:POKE54296,PEEK(Z (15) +24) : RETURN: VOL  .113 
ON 

24  G0SUB17: PRINT#15, MI"+Z$(13) : GOTO 15: INICIALI ZA  .86 

25  GOTO 1000  .223 

26  GOTO 1001  .32 

27  GOTO 1 002  .97 

28  P0KE53265 , PEEK (53265) AND239: RETURN: OFF  .228 

29  P0KE53265, PEEK (53265) OR 16: RETURN: ON  .51 

34  CFLCH  I Z Q I V AR I ABLES  Z(I,J,K,X,Y,I$,J$, K$ )  .84 

35  P0KE55 , 255: PQKE56 , 127 : CLR  .75 

36  PRINTCHR*(142) ;CHR*(B) : POKE650 , 255: PRINT" C C0MM7  .26 
3  CCLRI " ; : DIM  l* (30) : DIMZ (35) , ZZ (2 , 4) 

40  Z* (4) =" C39SPC3 "  .132 

41  Z% (6) =  " >C36SPC3< "  .233 

45  Z% (7)  =" CCOMMAD  C38SHIFT*! CCOMMSD "  .249 

46  Z% (8) =" CSHIFT— I C38SPC3  CSHIFT— 3"  .136 


47  Z$(9)=" CCOMMZ 1 C38SHIFT*! "  .103 

65  P0KE4925 1 , PEEK ( 646 ) : GOSUB 1 7 : G0SUB22 : P0KE53287 , 1  .167 
: P0KE53288 , 3 

70  Z (3) =8: Z (4) =0: 1% ( 12) =  "PS. ": 1% (21 ) ="PS ! " : Z$ ( 13) =  .242 
"D0:  - 

80  Z(30)=150:Z(U)=1:Z(6)=-1:Z(15)=37950:Z(16)=1:P  .192 
0KE38499 , 0: Z (26) =2: Z (33) =0 

95  Z0=49152: Zl-49594: Z2=49626: Z3=49719: Z4=49750: Z5  .11 
=49877: Z6=50140: Z7=50214 

96  Z8=50969: Z9=51230: ZA=51693: ZB=51818: ZC=51900: ZD  .16 
=51940: ZE=52964: ZF=52009 

97  Z 6=53082: ZH=51818  .75 

98  GOTO  280: CFLCH  I ZQ I TABLA  DE  SALTOS  C.M.  .40 

99  GOTO1110  .89 

100  60SUB6: FORI=l TO50: NEXTI : G0SUB6: G0T026  .26 

101  G0SUB6: Z$ (0) =" FUNCION  PROGRAMABLE" : G0SUB5: GOSU  .239 
B6: BOTO 1004 

102  Z(ll)=l:X  =  lx  Y=1 : GOSUB 1 : PRINT" CC0MM3I CRVSOND  CFL  .44 
CH  ARR I BA I C RVSOFF I  I  CPI 3 " ; : G0T025 

103  Z ( 1 1 ) =2: X  =  1 : Y=1 : GOSUB 1 : PRINT" CCOMM3  3  CFLCH  ARRI  .217 
BAI  C  RVSON 1 1 C  RVSOFF ]  CPI 3 " ; : G0T025 

104  Z ( 1 1 ) =— 1 : X  =  1 : Y=1 : GOSUB 1 : PRINT" CCOMM33  CFLCH  ARR  .18 
IBA 3  I  CCOMM-3"; : G0T025 

105  Z ( 33 ) = 1 : GOSUB7550 : PR I NT #4 , CHR$ (13): CL0SE4 : GOSU  .227 
B8: 60T0999 

106  Z (33) =0: Z (31 ) =0: GOSUB7 : GOSUB7600: G0SUB8: G0T099  .208 
9 

107  Z (26) =1 : X=1 : Y=6: GOSUB1 : PRINT" CCOMM73 CCOMMH3 C2S  .155 
PC 3 " ; : G0T025 

108  X  =  1 : Y=8: GOSUB 1 : PRINT" CCOMM73  CSHIFTC3  C2SHIFT*! "  .148 
; : G0T025 

109  X  =  1 : Y=8: GOSUB 1 : PRINT" CCOMM73  C2SHIFT*3  CSHIFTC3 "  .157 
I  : G0T025 

110  Z (18)=0:GOTO2580  .158 

111  G0SUB22 : GOTO 1710  .247 

112  GOSUB5330: G0T0999  . 190 

113  G0SUB22: GOTO 1780  i  7 

1 1 4  GQSUB6520: G0T025  . 224 

115  SYSZ2 , 37914 , 34714 , 36: PQKE49476 , 220: G0T025  .59 

116  Z (13)=100:GOSUB7200:GOTO26  .132 

117  Z ( 1 3 ) = 1 0 : GOSUB7200 : G0T026  .203 

118  1=0: Z (13) =34317: GOTO2160  .98 

119  I=1:Z(13) =34 1 98 : G0T02 1 60  .247 

120  1=2: Z (13) =34478: GOTO2160  .202 

121  Z ( 1 3 ) = 1 000 : G0SUB6 1 90 : G0T026  .75 

122  Z ( 13) =100: GOSUB6190: G0T026  .174 

123  Z ( 13) =10: GOSUB6190: G0T026  .227 

124  Z ( 13) =1 : GOSUB6190: G0T026  .0 

125  Z ( 13) =10: GOSUB6280: G0T026  .197 

126  Z ( 1 3 ) = 1 : GOSUB6280 : G0T026  . 242 

127  Z (13)=1:GOSUB7200:GOTO26  .249 

128  G0SUB13:Z=4: Z (13) =33852: GOTO2730  .136 

129  Z=16« Z (13) =33932: GOTO2010  .11 

130  Z=32:Z (13) =33972: GOTO2010  .176 

131  Z=64: Z (13) =34012: GOTO2010  .217 

132  GOSUB 13: GOTO2060  .152 

133  G0SUB13: Z (13) =33978+7*40*1 :GOTO2210  .109 

1 34  GOSUB 13:1 $=STR* ( I + 1 ) : GOTO2400  . 200 

1 35  G0SUB58 1 0 : G0T026  . 1 

136  GOTO2450  .54 

137  GOSUB5890: G0T026  .5 

138  GOSUB 13: I$=STR$ ( 1+1 ) : Z$ (0) =" DECAI MIENTO" : J=5: G  .168 
OTO2480 

1 39  GOSUB5970 : G0T026  .213 

140  GOSUB13: I#=STR$ ( 1+1 ) : Z$ (0) =M RELAJACION” : J=6: GO  .160 
TO2480 

141  GOSUB6050: G0T026  .15 

142  1=3: Z (13) =33826: GOTO2210  .188 

143  G0SUB13:Z (28) =37989+1: Z ( 13) =15: GOSUB6990: SYSZ9  .159 
: G0T025 

144  GOSUB 13: Z (28) =37989+1 : Z ( 13) =240: GOSUB6990: SYSZ  .88 
9: G0T025 

145  I =0 : GOSUB5700 : G0T025  .237 

146  1=1 : GOSUB5700: G0T025  .254 

147  1=2: GOSUB5700 : G0T025  .  1 5 

148  GOSUB8260: B0T025  .98 

149  GOSUB5740: G0T026  .95 

150  Z (28) =37993: Z ( 13) =15: GOSUB6990: SYSZ9: G0T025  .224 

151  Z (13)=100:GOSUB6781:GOTO26  .207 

152  Z (13)=10:GOSUB6781:GOTO26  .0 

153  Z ( 13) =1 : G0SUB6781 : G0T026  .157 

154  Z (13)=100:GOSUB6782:GOTO26  .210 

155  Z (13)=10:GOSUB6782:GOTO26  .133 

156  Z ( 13) =1 : G0SUB6782: G0T026  .224 

157  Z ( 1 3 ) = 1 00 : G0SUB6783 : G0T026  .215 

158  Z (13)=10:GOSUB6783:GOTO26  .8 

159  Z ( 1 3 ) = 1 : G0SUB6783 : G0T026  . 35 

160  GOTO2350  .62 

J61  *  .137 

162  Z=PEEK (49482) : GOSUB7270: G0T025  .8 

163  Z ( 13) =100: GOSUB7060: G0T026  .55 

164  Z (13)=10:GOSUB7060:GOTO26  .60 

165  Z ( 13) =1 : GOSUB7060: G0T026  .191 

166  Z=PEEK (49482) : GOSUB7320: G0T025  .134 

167  GOTO2820  .53 

168  Z ( 13) =100: GOSUB7130: G0T026  .250 

169  Z (13)=10:GOSUB7130:GOTO26  .159 

170  Z (13)=1:GOSUB7130:GOTO26  .116 

171  GOTO2780  .235 

172  Z*(0)=HPASABAJOS":Z(13)=345B5: Z=102: I=16:G0T02  .64 
260 


I 
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173  Z*  (0)  “"PASABANDA" :  Z  ( 13)  =34587 :  Z  =  100:  1=32:  G0T02  .109 
260 

174  Z* (0) ="PASAALTOS" : Z ( 13) =34589: Z=098: 1=64: G0T02  .142 
260 

175  Z  (13)=1000:GOSUB6390:GOTO26  .131 

176  Z (13)=100:GOSUB6390:GOTO26  .100 

177  Z (13)=10:GOSUB6390:GOTO26  .89 

178  GÜT025  .190 

179  Z (28) =37992: Z < 13) =15: GOSUB6990: SYSZ9: G0TD25  .237 

180  GOTO2530  .50 

181  G0SUB6 1 30 : G0T026  .7 

182  Z (28) =37992: Z ( 13) =240: GOSUB6990: SYSZ9: G0TG25  .194 

183  GOTO2110  .181 

184  Z (13) =10000: GGSUB6390sGOTO26  .198 

185  Z (26) =2: X=l: Y=6: GOSUB 1 : PRINT" CC0MM7D  CCOMMHI  "  .127 
; s  GGT025 

186  Z (26) =3: X=l: Y=6: GOSUB 1 : PRINT" CCÜMM7] C2SPCD CCOM  .170 
MHD"; : GGT025 

187  GQSUB8350: G0T025  .121 

191  Z (32) =2+NOT ( Z (32) ) : P0KE34351 , 160+2* ( Z (32) =1 ) s  G  .81 
0T025 

225  : REM  AMPLIACIONES  P2  .207 

226  s  . 202 

227  :  . 203 

228  :  . 204 

229  s  . 205 

230  :  . 206 

231  :  .207 

232  :  . 208 

233  : GOTOl 01  .131 

234  Z (8) =234: GOTOl 190  .118 

235  Z (8)=235:GOTO1260  .217 

236  Z (8) =236: GOTOl 400  .154 

237  Z (8) =237: GOTOl 500  .189 

238  :  .214 

239  G0SUB52 15: G0T027  .79 

240  G0T0161 0  .54 

241  G0T0243  .83 

242  GOSUB5290: G0T027  .18 

243  G0SUB6 : G0SUB6 : G0T027  . 1 67 

244  Z (8) =244: REM  AMPLIACIONES  P1  .152 

245  Z (8) =245:  . 151 

246  Z (8) =246:  .154 

247  Z (8) =247:  .  157 

248  Z (8) =248:  .160 

249  Z (8) =249:  .163 

250  Z (8) =250:  .148 

251  Z (8)=251:GOTO101  .73 

252  G0T0243  . 94 

253  GOSUB8570: G0T025  .27 

279  CFLCH  I ZQ] PRESENTACION  .56 


280  GOSUB28 : Z ( 0 ) =2 : GOSUB5030 : Z ( 1 ) =2 : GOSUB5 1 1 0 : Z ( 2 )  .95 

=0 : G0SUB5 1 30 : PR I NT " C  CLR I - j 

300  POKE53280 , 0 : POKE  53281 ,0: PRINT  TAB ( 12) "PRUEBA  .233 
DE  SONIDO" 

310  PR I NTT AB (12) "  C  1 6SH I FT * I "  .147 

340  X=0: Y=1 1 : GOSUB1 : PRINTZ* (7) ; : F0RI=1T05: PRINTZ* (  .243 
8) ; : NEXT : PRINTZ*  <9) ; " C COMM X 3 " ; 

350  REM  X=9: Y=3:G0SUB1: PRINT "VERSION  MODIFICADA  PO  .235 
R" 

380  X=0i Y—22: GOSUB1 : PRINT ; Z* (7) ; Z* (8) ; Z*  (9) ; : P0KE3  .65 
3767, 125: G0SUB29 

400  CL0SE2: CL0SE3: CL0SE4: CL0SE15: 0PEN15 , Z (3) ,15: GO  .113 
SUB24: IFI >19THENG0SUB4: GOTO400 


410  REM  K=5: GOTO490  .81 

420  GOSUB17: Z*(0) =" CARGANDO  0 . PDS " : GOSUB2 : 0PEN2 , Z (  .145 
3) ,2,Z*(13)+" 0. PDS , P , R" 

430  GOSUB 1 5 : I F I > 1 9THENG0SUB4 : GOTO400  . 203 

440  GOSUB 1 7 : J  =49 1 52 : GET#2 , I * : GET #2,1$  .117 

450  GET #2,1$: POKE J , ASC ( I *+CHR* ( 0 ) )  .81 

460  IFNOT(ST) AND64THENJ=J+1 : GOTO450  .171 

470  CLOSE2 : Z $  < 0 ) = " ESPERA " : GOSUB2  .23 

480  X=0: Y=12: GOSUB1 : PRINT" CCRSRR30. PDS— OK" : K=1  .17 

490  Z* ( 1 1 )  =MID*  (STR*  (K) +" .  PDS"  ,  2)  :  X=-30*  (K>4)  :  Y=K+  .215 

12+5* (K >4) : GOSUB 1 

500  G0SUB17:0PEN2,Z (3) , 2 , Z* ( 13) +Z* ( 1 1 ) + " ,P,R":CLOS  .213 
E2 

510  GOSUB 15: IFI=62THENPRINT: GOTO550  .121 

520  I F I > 1 9THENG0SUB4 : GOTO490  . 1 36 

530  GOSUB 1 7 : PRINT" CCRSRR ]";Z$(11) ; : SYSZ0 , Z* ( 13) +Z*  .168 

(11) ,Z (3) , 1 

540  GOSUB 15: IFI >19THENG0SUB4: GOTO490  .76 

545  I  =FRE  ( 0 )  :  PR  I  NT  "  — OK  "  :  K=K+ 1 :.  I  FK=2THENG0SUB86 1 0  .93 

546  IFK< 10THEN490  .84 

550  GOSUB 1 00 10: POKE49205 , 96 : S YS49 1 93  .242 

570  ZS (0) ="COLOCA  DISCO  FICHEROS" : G0SUB3: G0SUB24: I  .16 

F I > 1 9THENG0SUB4 : GOTO570 

750  REM  CREA  LAS  PANTALLAS  .192 

760  Z ( 2 ) =0 : GOSUB50B0 : G0SUB28  . 224 


770  PRINT" CHOMI" ; :FORI=1TO20: PRINT" C9SPCD CSHIFT-3 [  .183 

9SPC3  CSHIFT-D  C9SPCD  CSHIFT-D  C  10SPC3  "  ;  :  NEXT 

780  PR I NT " C  COMMA  3  C  8SH I FT* 3  C COMME  3  C 7SH I FT*  3  C  COMMR  3  C  .197 

SHIFT*3  C COMME D  C COMMR]  C5SHIFT*]  C COMMR]  C2SHIFT*]  CCOM 

ME  3  C 2SH I FT*  3  C COMMR  3  C  6SH I FT*  3  C  COMMS  3 " ; 

790  PR I NT " C  SH I FT—  ]  C  1 6SPC  3  C  SH I FT- 3  C  2SPC  3  C SH I FT- 3  E=  C  .241 
3SPC  3  C SH I FT- 3  C=  C  3SPC  3  C  SH I FT—  3  BL=  C  3SPC  3  C  SH I FT—  3 " ; 

800  PR I NT " C  COMMQ  3  C 1 6SH I FT *  3  C  COMME  3  C 2SH I FT*  3  C  COMME  3  .9 
í 5SH I FT*  3  C  COMME  3  C  5SH I FT*  3  C COMME  3  C  6SH I FT*  3  C  COMMW  3 " i 
: Z*(0)=" " : G0SUB2 

810  X=29: SYSZ 1 , 820: FORY=0TO19: GOSUB 1 : READ I *: PRINTI  .249 
*; : NEXTY 


820  DATA "CCRSRR 3 LOAD"," CCRSRR 3 SAVE" , " CCRSRR 3 BORRAR  .133 
" , " C  CRSRR 3  RENOMBRAR " , " C CRSRR 3  C AMB 10  DE " 

830  DATA  " C  CRSRR  3  D I SCO-D I R " , " C  CRSRR  3  COMANDOS " , " C  C  .157 
OMMQ  3  C 1 0SH I FT*  3 " , " C CRSRR  3 SON I DO " , " C COMMQ  3  C 1 0SH I FT* 

3" 

840  REM  AMPLIACION  P1  *  MODIFICAR  LINEAS  244-251  .111 

850  DATA  " C  CRSRR  3  C 1 0SPC  3 " , " C  CRSRR  3  C 1 0SPC  3 " , " C  CRSRR  .19 
3  C 1 0SPC 3 " , " C CRSRR  3  C 1 0SPC 3 " , " C CRSRR  3  C 1 0SPC 3 " 

860  DATA  " CCRSRR3C10SPC3" ," CCRSRR 3 C10SPC 3", "CCRSRR  .213 
3C 10SPC3" , " C COMMQ 3  C 1 0SH I FT * 3 " , " C CRSRR 3 F I N C 7SPC 3 " 

870  Z <2)=1:GOSUB5080  .217 

880  REM  AMPLIACION  P2  *  MODIFICAR  LINEAS  225-233  .247 

900  X=1 : Y=17: GOSUB 1 : PRINT" C3SPC3 " : Y=19: GOSUB 1 : PRIN  .199 

T " C  3SPC 3 " : Y=20 : GOSUB 1 : PR I NT " C  3SPC 3 " 

940  SYSZ 1 , 950: F0RI=1 T09: READJ , K: POKEJ , K: NEXTI : REM  .173 
*  COLORES  (LOS  00)  * 

950  DATA  37545,00,37546,00,37547,00,37625,00,37626  .43 
,00,37627,00 

955  DATA  37665,00,37666,00,37667,00  .246 

960  GOSUB5330: GOSUB 19  .59 

985  P0KE52877 , Z ( 30 ) + 1 : I =FRE ( 0 )  .46 

999  POKE49453,0: POKE 197,0: POKE 198,0  .136 

1000  SYSZ7: GOTO 1000  .61 

1001  POKE49475,0: GOTO 1000  .108 

1002  GOSUB 1006: Z* (0) =" " : G0SUB2: G0T0999  .67 

1003  G0SUB23: G0T0999  .220 

1 004  GOSUB 1 006 : G0T0999  .  1 5 

1005  GOSUB 1006: GOTO 1001  .168 

1006  Z (8)=0: Z*(14)=" ": Z ( 18) =0: RETURN  .225 

1100  CFLCH  I ZQ 3 RUT INAS  .162 


1110  : X=PEEK (49274) +8: Y=PEEK (49275) : GOSUB 1 : CL0SE3:  .84 
0PEN3 , 3 

1120  K=0: J*="" :F0RI=1T09:GET#3, I*: IFI*="  " ANDK=0TH  .56 
EN1130 


1125  J*=I*+J*:K=1  .145 

1130  PRINT" C2CRSRL3 " ; : NEXTI : IFJ*=" "THENG0SUB6: GOSU  .164 
B6: G0T027 

1140  CL0SE3: I=FRE (0) : Z* ( 14) =J*  .24 

1150  IFZ (8) <234THENZ* (0) =J*+" .  ELIGE  FUNCION" : GOSU  .252 
B2: G0T025 

1160  P0KE49265 , Z ( 8 ) : P0KE49453 , 1 : G0T025  .144 

1190  :Z*=Z*(14) : IFZ*=" "THENZ* (0) ="LOAD. ELIGE  FICHE  .84 
RO" : G0SUB2: G0T025 

1210  GOSUB 1 0  .130 

1211  I F I > 1 9THENG0SUB4 : GOSUB 19: G0T027  .19 

1220  G0SUB11: IFI >0THEN1211  .58 

1240  Z* ( 18) =  Z*: IFZ (18) =1 THENGOSUB5290  .44 

1250  G0T027  .18 

1260  : Z*=Z*(14) : IFZ*< >" "THEN 1345  .186 

1280  I*=STR* (PEEK (49482) ) : Z* (0) “"SALVAR  HASTA  MEMO  .97 
RIA"+I*+"  : C9SPC3< " 

1285  X=28+ (LEN (I$)<4) i Z (9) =9: Z$(16)=Z$(18) : G0SUB9  .162 
1290  IFZ* (15)=" CFLCH  I ZQ3 "ORZ* ( 15) =" "THEN27  .67 

1300  Z*=Z*(15) IGOSUB10: IFI=0THEN1330  .21 

1310  IFI  >19ANDIO62THENG0SUB4:  GOTOl 320  .153 

1311  IFZ ( 6 ) =0THENZ * ( 0 ) = " D I SCO  LLENO" : G0SUB5: GOTO 10  .14 
04 

1312  GOSUB6720: IFZ* (15)=" CFLCH  IZQ3 "THEN1002  .71 

1315  GOSUB 12: IFI >0THENGOSUB4  .58 

1316  IFI =- 1 THEN 1 004  .87 

1320  Z* ( 18) =Z*: G0SUB19: IFZ ( 18) =2THENGOSUB5290  .211 

1325  G0T027  .94 

1330  Z* (0) “"FICHERO  EXISTE.  SUBSTITUYO?  (S/N) >  < " :  .139 
X=36: Z (9) =1 : G0SUB9 

1340  IFZ*(15)=" CFLCH  I ZQ3 "ORZ* ( 15) < >"S"THEN27  .161 

1345  GOSUB6720: IFZ* (15)=" CFLCH  I ZQ3 "THEN 1002  .104 

1350  Z* (0) =" SUBST I TU IR  "+Z*: G0SUB2: G0SUB21 : IFI >19T  .133 
HENG0SUB4: GOTO 1320 

1370  GOTOl 315  .183 

1400  : Z*=Z*( 14) : IFZ*=" "THENZ* (0) “"BORRAR.  ELIGE  FI  .229 
CHERO" : G0SUB2: G0T025 

1440  Z *  ( 0 )  =  " BORRANDO  " +  Z* :  G0SUB2 :  G0SUB2 1  :  IFIM9THE  .167 
NG0SUB4 

1460  GOSUB 19: G0T027  .9 


1500  : Z*=Z*( 14) : IFZ*=" "THENZ* (0) “"RENOMBRAR.  ELIGE  .209 
F I CHERO " : G0SUB2 : G0T025 

1520  I=LEN ( Z*) : Z* (0) “"RENOMBRAR  "+Z*+" >C9SPC3< " : Z (  .77 
9) =9: X=INT( (19-1) /2) +11+1 

1530  G0SUB9:  IFZ*  (15)=",l 'ORZ*  (15)  “"CFLCH  I  ZQ]  "THEN27  .1 


1540  GOSUB10: IFI >19THENG0SUB4: GOTO 1460  .118 

1560  Z*(0)=" RENOMBRANDO  "+Z*+"  A  "+Z* ( 15) : G0SUB2  .202 
1570  G0SUB17: PRINT#15, "R" ¡Z*(13) ; Z* ( 12) ; Z* ( 15) ; "="  .188 
; Z* (12) ; Z*: GOSUB 18 

1 580  GOSUB 1 5 : I F I > 1 9THENG0SUB4  . 1 68 

1590  GOTO 1460  .2 

1610  : Z* (0) =" CRVSON]  RECORDAR  "+Z*(12)+"  CRVSOFF]"  .76 
: G0SUB2 : FOR I = 1 TO500 :NEXT:Z(13)=0 

1620  Z (10)=1: Z*(0)=Z*(6) : X=2: Z (9) =36: G0SUB9  .92 

1625  IFZ* (15) ="@"THENG0SUB15: G0SUB4: 6OTO1670  .17 

1626  IFZ* ( 15) =" ! "ANDZ ( 13) =0THENK*=Z* (21 ) : G0SUB5216  .56 
: Z (13)=1:GOTO1680 

1630  IFZ* (15)=" CFLCH  I ZQ] "ORZ* ( 15) =" "THEN1690  .252 

1635  Z*(0) “"EJECUTANDO" : G0SUB2: G0SUB17: PRINT# 15, Z*  .225 
(15) : I NPUT #15,I,I*,J*,K 

1640  GOSUB 18: Z=ST: IFI=1 THENZ* (0)=J*+M  FICHEROS  BOR  .234 
RADOS" : G0SUB3 

1650  IFI=73THENZ* (0) =1*: G0SUB3  .212 

1660  I F I > 1 9THENG0SUB4  .84 

1670  GOSUB 19: G0T027  .220 

1680  Z* ( 16) =Z* (21 ) i GOTO1620  .48 

1690  IFZ (13) =0THEN27  .94 
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1691  GOTO1670  . 167 

1710  : Z ( 18) “1 : GOSUB5330: G0TÜ234  .178 

1780  : Z (18)=2:GOSUB5330:GOTO235  .10 

2010  : G0SUB13: J  =  Z (15) +4+7*1 : K-PEEK ( J )  .193 

2015  IFPEEK ( Z ( 13) +7*40* I ) =71 THENZ=KAND (255-Z ) : GOTO  .42 
2040 

2020  Z  = (KAND ( 1 19— Z ) ) ORZ  .117 

2040  POKEJ , Z : P0KE54276+ I *7 ,  Z : SYSZ9: G0T025  .201 

2060  :J=Z (15) +4+7*1 :K=PEEK(J) : IFPEEK (34052+7*40*1)  .44 
=7 1 THENZ=KAND7 : GOTO2040 

2070  Z“ (KAND7) ORI  28: GOTO2040  .20 

2110  :J  =  Z (15) +24:K=PEEK(J) : IFPEEK (34501 ) =72THENZ=K  .166 
2120  Z“KAND127  .152 

2 1 4e  POKEJ , Z s  P0KE54296 ,  Z s  SYSZ9: G0T025  . 1 26 

2160  : J“Z (15) +4+1*7 : K=PEEK ( J ) s IFPEEK ( Z ( 13) ) “72THEN  .216 
Z=KAND253:  GOTO2190 

2170  Z=K0R2  .216 

2190  POKEJ , Z : PQKE54276+ I *7 ,  Z : SYSZ9 : G0T025  .96 

2210  : J=Z ( 15) +23: K=PEEK ( J ) : IFPEEK ( Z ( 13) ) =71THENZ=K  .218 
AND (255-2CFLCH  ARRIBA] I) : GOTO2240 

2220  Z=KOR (2CFLCH  ARRIBA] I)  .134 

2240  POKEJ , Z : P0KE54295 , Z  s  SYSZ9  s  G0T025  .210 

2260  :J=Z (15) +24 : K=PEEK ( J ) : IFPEEK (Z (13) )=ZTHENZ=KA  .96 
ND ( 255- I ) : GOTO2290 

2270  Z=KORI  .2 

2290  POKEJ , Z : P0KE54296 , Z : SYSZ9: G0SUB5: G0T025  .84 


2350  : IFZ (27) “1THENZ* (0) =" INTRODUCE  MEMORI A" : GOSUB  .79 
5: G0T025 

2354  I=PEEK (49486) :IFI<1ORI>Z(30) THENZ* (0) “"ALTO" :  .159 
G0SUB5: G0T025 

2355  X=32: Y=13: GOSUB 1 : PRINT" CC0MM6] CRVSON] MEMORIAL  .246 
RVSOFF ] " ; : P0KE49489 , 1 : P0KE49488 , 0 

2356  SYSZ2 , 49482 , 49296 ,6: Z=PEEK ( 49486) : GOSUB7470 : J  .87 
“INT (K/256) : 1=49302 

2357  POKEI+1 ,  J: POKEI+3, J : J=K— J*256: POKEI t J: POKEI+2  .0 
, J : G0SUB83 1 0 : GOSUB7270 

2360  GOSUB8260: Z$ (0) =" DISPARA" : G0SUB2: POKEI 98,0: GO  .69 
SUB7 : SYSZGs  G0SUB8 

2370  X=32: Y=1 3: GOSUB 1 : PRINT" CC0MM6] C RVSOFF] MEMORI A  .33 
" ; ! P0KE49489 ,0: P0KE49488 , 1 s  GOSUB8260 

2380  G0SUB83 1 0 : G0SUB7276 : G0T027  . 1 75 

2400  : SYSZ 1 , 2420: J=Z ( 1 5) +5+ 1*7: K= (PEEK ( J ) AND240 ) / 1  .45 
6: FORZ=0TOK: READJS: NEXTZ 

2410  Z$  (0)  “"TIEMPO  DE  ATAQUE  VOZ"+I*+"  =  "+J*:GOSU  .75 
B5: G0T025 

2420  DATA  2  MS,8  MS,16  MS,24  MS,38  MS,56  MS,68  MS,  .159 
80  MS,  100  MS 

2430  DATA  250  MS,500  MS , 800  MS , 1  S , 3  S , 5  S , 8  S  .151 

2450  :  Z  *  ( 0 )  =  " S= VOLUMEN .  TIEMPO  DEPENDE  DE  TIMER" : G  .13 
0SUB5: G0T025 

2480  : SYSZ 1 , 2500: J=Z ( 15) +J+I *7 : K=PEEK ( J ) AND1 5: FORZ  .227 
=0T  OK  s  RE AD J  * : NE  X  T  Z 

2490  Z*(0)="TIEMPO  DE  "+Z*(0>+"  VOZ"+I*+"  =  "+J$:G  .211 
OSUB5: G0T025 

2500  DATA  6  MS,24  MS , 48  MS,72  MS,U4  MS,168  MS,204  .249 
MS , 240  MS 

2510  DATA  300  MS,750  MS,1.5  S,2.4  S,3  S,9  S,15  S,2  .243 
4  S 

2580  : Z ( 13) =0  .242 

2590  I*=MID*(STR*(Z(13) ) ,2) : IFZ ( 13) < 10THENI*="0"+I  .212 

% 

2595  J$=MID* (STR$ (54272+Z ( 13) ) ,2) : Z$="00" : SYSZC, Z (  .25 
13) tZ* 

2600  Z$(0)  “"REGISTRO  D4"+Z*+"-"+I$+"-"+J*+"  >C9SPC]  .80 
< " s  X=26: Z (9) =9: G0SUB9 


2610  IFZ$(15)=" CFLCH  I ZQ ] " THENG0SUB8 : G0T025  .210 

2615  IFZ$  ( 15)  ="  "THEN2700  .1.11 

2620  I*=LEFT*(Z*(15) ,1) s IFI*="L"THENGOSUB6880: GOTO  .78 
2580 

2625  I F I ♦<  > ” R " THEN2640  .181 

2626  IFLEFT*(Z*(15)  ,2) ="RH"THENZ* (20) ="0"+MID* (Z* (  .54 
15) ,3) : GOSUB6930: G0T0263 1 

2630  I=VAL(MID$(Z*(15) ,2) )  .28 

2631  J  =54272 : Z ( 1 3 ) =— I * ( I <  25 AND I >0 )  —  ( I — J ) * ( I > J  AND I <  .59 

J+25) : GQTO2590 

2640  I=VAL ( Z$ ( 15) ) : IFNOT ( ( I*="  " ) OR ( I $= " - " ) ) THEN26  .244 
50 

2645  Z  (13)=Z  (13)+I:  IFZ  (13X0ORZ  (13)  >24THEN2580  .63 

2646  GOTO2590  .160 


2650  IFLEFT*(Z$(15) , 2) =" VF"THENZ (13) =21: I=0sGOTO26  .206 
45 

2652  IFI $=" V"THENZ (13) =7* (VAL (MID$ (Z$(15)  ,2) )— 1) : I  .200 
=0! GQT02645 

2655  IFI*="B"THENZ$(20)=MID*(Z*(15)  ,2)  :  GOSUB6900  .21 
2660  IFI*="H"THENZ*(20)=MID*(Z*(15) ,2) : GOSUB6930  .32 


2670  IFI >255THENI=255  .202 

2680  I F I <  0THEN I =0  .220 

2690  POKEZ (15) +Z (13) ,  I : GOSUB6480  .50 

2700  Z(13)=Z(13)+1: IFZ(13) =25THEN2580  .198 

2710  GOTO2590  .224 

2730  ¡J=Z (15) +4+7*1 :K=PEEK(J) ¡ IFPEEK (Z (13) +7*40*1)  .42 
=7 1 THEN2750 

2740  Z=KORZ : GOTO2760  .188 

2750  Z=KAND( 255-Z)  .72 

2760  POKEJ ,Z: P0KE54276+I*7 ,  Z : SYSZ9: G0T025  .156 

2780  : I=2+N0T (PEEK (49490 )AND1) : POKE49490 , I : K= 1-13*  .252 
(1=0): POKE37502 , K : P0KE55934 , K 

2790  IFI=1THENZ=PEEK (49482) : GOSUB7270  .50 

2800  G0T025  . 6 

2820  : I FZ ( 27 ) =0THENGOSUB6 : G0SUB6 : GQT025  .93 

2825  GOSUB8330: J=PEEK (49486) : P0KE37999+Z  f J : P0KE344  .40 


69,160 

2830  Z (27)=0: Z*(0)="PASO"+STR$(Z)+"  ES  MEMORI  A" +ST 
R*(J> : G0SUB5 

2835  IFZ (32) =1 ANDZ<499THENZ=Z+1 : GOSUB7161 

2836  G0T025 

5030  : P0KE56578 , PEEK ( 56578 ) 0R3 : P0KE56576  f ( PEEK ( 565 
76 ) AND252 ) OR ( 3—  Z (0) ) 

5040  Z ( 2 ) = ( PEEK ( 53272 ) AND240 ) / 1 6 : G0T05 1 30 : 

5060  : P0KE53272 , (PEEK (53272) AND15) OR ( Z (2) *16) : RETU 
RN 

5080  : Z ( 0 ) =3- ( PEEK ( 56576 ) AND3 ) 

5090  P0KE648, (Z (0) *16384+ ( Z (2) *1024) ) /256:RETURN 
5110  : POKE53272 , ( PEEK ( 53272 ) AND240 ) OR ( Z ( 1 ) *2 ) : RETU 
RN 

5130  : GOSUB5060 : GOTO5080 : 

5150  : P0KE646 , PEEK ( 4925 1 ) : X=0 : Y=23 : GOSUB 1 : PRINTZ* ( 
8) j : X= (40— LEN ( Z$ (0) ) ) /2 

5160  GOSUB1 :PRINTZ* (0) " CHOM]"; : X=FRE(0) : RETURN 
5175  : Z$ (0) ="ERROR  DISCO-"+MID* (STR* ( I ) ,2) +" ( "+MID 
% ( STR$ (Z) ,  2 )  +  "  )  " 

5180  : : Z* (0) =Z* (0) +". DISPARA" : G0SUB2 

5185  : : : POKE 198,0: P0KE49267 , 0 : G0SUB7 : P0KE63 1 , 0 

5190  I FPEEK ( 49267 ) “0ANDPEEK (198) “0THEN5 1 90 

5200  I *= " " : POKE 198,0: P0KE49453 , 0 : Z % ( 0 ) = " " : GOSUB2 : G 

0T08: 

5215  :K*=Z*(12) 

5216  Z% (0) “"DIRECTORIO" : GOSUB2: POKE33770 , 0: G0SUB24 
: I F I > 1 9THENG0SUB4 : G0T052 1 6 

5220  GOSUB  1 7 :  SYSZ5 ,  K*  ,  Z  (3)  ,  Z  (4)  :  GOSUB  15:  IFIM9THEN 
GOSUB4 : G0T052 1 6 

5225  Y=21 : X=29: GOSUB 1 : GOSUB5250 

5230  PRINT" C3SPC] " ; : GOSUB1 : PRINTJ*: X=36: GOSUB1 : PRI 

NT " C 3SPC ]" ¡ : GOSUB 1 

5235  I F VAL ( I * ) >999THEN I *= " 999 " 

5240  PRINTI*; : X=23: GOSUB 1  * PRINT" C3SPC] " j :GOSUBl:PR 
INTMID$ (STR* (PEEK (49262) ) ,2) ; 

5245  Z*(0)="" :G0T02: 

5250  : GOSUB 17 : SYSZ 6 , Z (3) ,Z (4) :G0SUB15: IFI>19THENGO 
SUB4: GOTO5250 

5260  I “PEEK ( 49263 ) +256*PEEK ( 49264 ) : J=60-PEEK ( 49262 
) : IFJ<0THENJ=0 

5270  Z (6)=J: I*=MI D* (STR* ( I ) ,2) : J*=MI D* ( STR* ( J ) ,2) : 
RETURN 

5290  : P0KE49465 , 0 : GQSUB28 : Z* (0) =" " : G0SUB2 

5300  Z ( 2 ) = 1 : G0SUB5 1 30 : SYSZ2 , 36864 , 55296 , 1 000 : GOSUB 

7510 

5305  I =53248: POKE 1.44: POKE 1+1.142: POKE 1+2.44: POKE I 
+3,142: P0KE53264 , 0: P0KE49474 , 3 

5307  P0KE49472 , 2 : P0KE49473 , 2 : P0KE49467 , 80 : P0KE4946 
9 , 226: P0KE49466 , 50: GOSUB23 

5310  Z ( 1 ) =1 : G0SUB5 110: G0SUB29 : I F  Z ( 1 6 ) = 1 THENG0SUB64 
80: G0SUB8 

5316  P0KE49465 , 1 : GOTO7440 : 

5330  : P0KE49465 , 0 : G0SUB28 : Z (2) =0: G0SUB51 30: SYSZ 3: G 
0SUB22 

5335  I =53248 : POKE 1,11: POKE 1+1,119: POKE 1+2,11: POKE I 
+3,119: POKE49474 , 8 : P0KE53264 , 3 

5337  PQKE49472 , 80 : P0KE49473 , 8 : P0KE49467 ,11: P0KE494 
69 , 207 : PQKE49466 , 54 

5340  Z ( 1 ) =2 : GQSUB5 110: P0KE49465 , 1 : G0T029 : 

5400  : I FPEEK ( 33784 ) “580RPEEK ( 34808 ) “58THEN5420 
54 1 0  FORK=0TO 1 : P0KE33784+K , 58+K : POKE34808+K , 58+K : N 
EXT: RETURN 

5420  FORK=0TO1 : P0KE33784+K , 62+K: POKE34808+K , 62+K: N 
EXT: RETURN 

5460  : P0KE33784 , 60 : POKE34808 , 60 : P0KE33785 ,61: P0KE3 
4809, 61: RETURN 

5480  : P0KE33784 , 58 : POKE34808 , 58 : P0KE33785 , 59 : P0KE3 
4809,59: RETURN 

5500  : POKE 198,0: P0KE49476 , 0 : J  =  X : GOSUB7 x Z$ (15) =" " : G 
0SUB2: X=J : Y=23 

5505  Z (9)=Z (9)+X: ZS ( 15) =Z* ( 16) : GOSUB1 : PRINTZ* ( 16) ; 

: X=X+LEN(Z*(16) ) 

5506  PR I NT " C  CRSRD ] " ; : G0SUB5625 
5510  GETIÍ: IFI*=" "THEN5510 

5515  I=ASC(It) : IFI=13ORI=20THEN5560 

5516  IF ( I >47ANDI<58) OR ( I >64ANDI<91 ) THEN5540 

5517  IFI “34THEN55 1 0 

5520  I F I =450R I “460R I =320R ( I >59AND I <  63 ) THEN5540 
5525  I FZ ( 1 0 ) = 1 THEN I F I >3 1 AND I < 95THEN5540 
5530  IFI=95THENZ*( 15) “"CFLCH  I ZQ] " : GOTO5600 
5535  GOTO5510 

5540  X  =  X  +  1 : IFX >Z (9) THENX  =  Z (9) : POKE 198,0 : G0T055 10 
5550  PR  I  NT  "  C  CRSRD  ]  C  SH I FT*  ]  "  ;  :  G0SUB5625 :  PR  I  NT  "  C  CRSR 
L3"; 

5555  Z$(15)=Z$(15)+I$: PRINTIS; :GOTO5510 
5560  I F I = 1 3THENGOTO5600 

5570  X=X— 1 i IFX< JTHENX=J : POKE 198 ,0: GOTO5510 

5580  PRINT" CCRSRL]  C CRSRD ] C SH I FT* ] C 2CRSRL ] " ; : GOSUB 

5625 

5590  Z*(15)=LEFT*(Z*(15) ,LEN(Z*(15) )-l) :GOTO5510 
5600  J=X: Z (10)=0: Z*(0)“""iZ*(16)="": I=LEN(Z*(15) ) 
5610  IFI >0THENI*=MIDS (Z$ ( 15) ,1,1): IFIS="  "THENI=I— 

1 : GOTO5610 

5620  Z$(15)=LEFT*(Z*(15) , I ): I=FRE (0) : PRINT" CCRSRD] 

C  SH I FT* ] C  2CRSRL ] C  CRSRU ] " ; : G0SUB2 : P0KE49453 , 0 : G0T08 
: 

5625  : PRINTCHR* (—195* (Z (2)=1) ) ; " CRVSON] " ; CHRS (-185 

*(Z (2)=0) ) ; " C RVSOFF ]C CRSRL ]CCRSRU]"j : RETURN 

5640  :GOSUB17: ZS(0) “"CARGANDO  "+Z$: G0SUB2: 60SUB24: 

I F I > 1 9THENRETURN 
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5645  GOSUB17:SYSZ0,ZS(13)+ZS(12)+Z*,Z(3) ,1 
5650  GOSUB6480 : GOSUB 1 8 : Z  * ( 0 ) = " " : G0SUB2 : GOTO 1 5  s 

5670  : GOSUB7350: IFI=— 1THENZS (0) =  "NO  HAY  ESPACIO  EN 
EL  DISCO" :G0T05: 

567 1  G0SUB24  s I F I > 1 9THENRETURN 

5673  Zl(0)«“  SALVANDO  "+Z*+"  HASTA  MEMORI  A"  +  Z*  (22)  ! 
G0SUB2: GOSUB 17 

5675  SYSZ4,Z*(13)+Z*(12)+Z*,Z (3) ,37914, Z (19) ¡ Zf(0) 
- " " t G0SUB2 : GOSUB 1 8 : GOTO 1 5 : 

5700  s  J  =  Z (15) +4+1*7 : K=PEEK ( J ) s  Z=KAND1 : 0NZ  +  1G0T0571 
0,5720 

57 1 0  POKEJ , KOR 1 : POKE54276+ 1 *7, KOR 1 s  G0T05725 
5720  POKEJ , KAND254 : POKE54276+ I *7 , KAND254 
5725  SYSZ9: RETURN 

5740  ¡ I  =  Z  < 15) +24: J=PEEK ( I ) : Z=JAND15¡ Z=Z+Z ( 1 1 ) + (Z ( 1 
1 ) —2) : IFZ  >15THENZ=0 
5770  IFZ<0THENZ=15 

5780  K=  <  J AND240 ) +  Z : POKE I , K : P0KE54296 , K : PR I NT " C YEL  3 
: SYSZ8 , 35 , 4 , 2 , Z 

5791  IF ( Z= 15ANDZ (11) >0) OR ( Z=0ANDZ (11) =-l ) THENFORI= 
1 TO300: NEXT 

5792  RETURN 

5810  : G0SUB13: Y=I : I  =  Z ( 15) +5+7*Y: J=PEEK ( I ) : Z= ( JAND2 
40)  /16:  Z  =  Z  +  Z  ( 1 1 )  +  (  Z  (U)=2) 

5830  IFZ  >15THENZ=0 
5840  IFZ<0THENZ=15 

5850  K= ( J AND 1 5 ) +Z * 1 6 : POKE I , K : P0KE54277+7* Y , K : PR I NT 
" CCYN3 " ; 

5860  SYSZ8 , 25 , Y*7 , 2 , Z : ZZ ( Y , 0) =Z : G0T0579 1 

5890  : G0SUB13: Y=I ¡ I=Z ( 15) +6+7*Y¡ J=PEEK ( I ) :Z=(JAND2 

40 )/16:Z=Z+Z(ll)+(Z(ll) =2) 

5910  IFZ >15THENZ=0 
5920  IFZ<0THENZ=15 

5930  K= ( J AND 1 5 ) +Z* 1 6 : POKE I , K : P0KE54278+7* Y , K : PR I NT 
” CCYN3 " ; 

5940  SYSZ8,28, Y*7 ,2, Z: ZZ ( Y ,2) =Z : G0T05791 

5970  : GOSUB 13: Y=I : I=Z < 15) +5+7*Y: J=PEEK ( I ) ¡Z=<JAND1 

5) : Z  =  Z  +  Z (11)+(Z (11) =2) 

5990  IFZ>15THENZ=0 
6000  IFZ<0THENZ=15 

6010  K= ( JAND240) +Z : POKEI , K¡ P0KE54277+7*Y , K¡ PR I NT " C 
CYN3 " ; 

6020  SYSZ8,25, 1+Y*7 ,2, Z: ZZ ( Y , 1 ) =Z : G0T05791 

6050  : GOSUB 13: Y=I : I  =  Z ( 15) +6+7*Y: J=PEEK ( I ) : Z=(JAND1 

5) ¡Z=Z+Z(11)+(Z<11)=2) 

6070  IFZ  >15THENZ=0 
6080  IFZ<0THENZ=15 

6090  K= ( JAND240) +Z: POKEI ,K: P0KE54278+7*Y , K: PRINT" C 
CYN3  *' ; 

6100  SYSZ8 , 28 , 1+Y*7 ,2,Z:ZZ(Y,3)=Z: G0TQ5791 

6130  s I=Z (15) +23: J=PEEK(I) : Z  = ( JAND240) / 16: Z=Z+Z<11 

) + ( Z ( 1 1 ) =2) 

6150  IFZ  >15THENZ=0 
6160  IFZ<0THENZ=15 

6170  K= ( J AND 1 5 ) +  Z* 1 6 : POKE I , K : P0KE54295 , K : PR I NT " [ GR 
N3  " ; : SYSZ8 , 36 ,21 ,2,Z: G0T05791 : 

6190  : GOSUB 1 3: Z(12)=I¡ I$=STR*(I+1) 

6195  Z* ( 15) =" " ¡ I  =  Z  < 15) +7*Z ( 12) : J=PEEK ( I ) +256*PEEK ( 

1+1) : IFZ (11) =2THEN621 0 

6200  Z=J/8: Z=Z+Z (11)*Z (13) : G0T06223 

6210  Z  $  ( 0 )  =  " FRECUENC I A  VOZ"+I*+"  <0-8190>>C5SPC3<H 

Z. Z (9) =5: X=28:G0SUB9 

6215  Z  =  INT (VAL (Z$(15) ) ) : IFZ#(15)=" CFLCH  I  ZQ3  " THENR 
ETURN 

6222  IFLEFT* (Z* ( 15) , 1 ) ="N"THENGOSUB6550: Z=K/8: GOTO 
6226 

6223  IFZ >8191 THENZ =8191 

6224  IFZ<0THENZ=0 

6225  K=Z*8 

6226  IFZ$< 15)=" CFLCH  IZQ3"THEN5: 

6230  I=Z (15)+7*Z (12) : J=INT (K/256) :POKEI+l , J: P0KE54 
273+7*Z (12) , J 

6240  J=K-J*256: POKEI ,J:P0KE54272+7*Z (12) ,J 

6250  PRINT" CCYN3 " ; :SYSZ8, 16,3+Z ( 12) *7,4, INT (Z) : RET 

URN 

6280  : GOSUB 1 3 : Z ( 1 2 ) = I : I$=STR$(I+1) 

6285  I=Z ( 15) +2+7*Z ( 12) : J=PEEK ( I ) +256* (PEEK ( 1+1 ) AND 
15) : IFZ ( 1 1 ) =2THEN6300 

6290  Z=J*0. 02442: Z=Z+Z ( 1 1 ) *Z ( 13) : G0T06322 

6300  Z* (0) ="AMPLITUD  PULSO  VOZ "  + 1 $+ " < 0-99 > > [ 2SPC 3 < 

PCT " : Z (9) =2: X=30: G0SUB9 

6315  Z=VAL ( Z$ ( 1 5) ) : I=Z ( 15) +2+7*Z ( 12) : IFZ$ ( 15) =" CFL 
CH  I  ZQ3  " THENRETURN 

6322  IFZ  >99THENZ=99 

6323  IFZ<0THENZ=0 

6330  K=Z/0. 02442: J=( INT (K/256) ) AND 1 5 : POKE I + 1 , J : POK 
E54275+7*Z (12) ,J 

6340  J=K-J *256: POKEI , J : POKE54274+7*Z ( 1 2) ,J 

6350  PRINT" CCYN3"; :SYSZB, 14,5+Z ( 1 2) *7 , 2 , INT ( Z ) : RET 

URN 

6390  : I=Z ( 15) +21: J=PEEK ( I ) +8*PEEK ( 1+1 ) : IFZ(11)=2TH 
ENGOTO6410 

6400  Z=30+J*5. 8: Z  =  Z  +  Z  <11)*Z (13) : G0T06422 

6410  Z$ (0) ="FRECUENCIA  FILTRO  <30-1 1902>>C5SPC3<HZ 

.  Z  (9) =5: X=30:GOSUB9 

6415  Z=INT (VAL ( Z$ ( 15) ) ) : IFZ$(15)=" CFLCH  I ZQ3 "THENR 
ETURN 

6422  IFZ >1 1902THENZ  =  1 1902 

6423  IFZ<30THENZ=30 

6430  I=Z ( 15) +21 : K= (Z— 30) /5. 8: J=INT (K/8) : POKEI+1 , J: 
P0KE54294 , J 


.89 

.48 

.220 

.53 
.  193 

.9 

.226 

.  158 
.  188 
.63 
.112 

.226 

.36 

.89 

.240 
.  196 

.  192 

.40 

.98 

.  18 
.29 

.  17 
.  121 
.  183 

.  101 
.  127 

.97 
.201 
.  147 

.29 

.215 

.  177 

.25 

.227 

.241 
.  181 

.2 

.  106 
.  162 

.  158 
.21 

.  124 
.28 

.  165 

.  198 

.  133 
.212 
.  1 19 
.  44 
.2 

.  1 16 
.  136 

.248 
.  109 

.96 
.  176 

.219 

.  158 

.55 

.64 

.90 
.  168 

.  156 

.77 
.  181 

.110 

.43 
.  192 
.59 


6440  J=. 2+ (K— J*8) : POKEI , J: P0KE54293, J : Z=PEEK ( I ) +8*  .153 
PEEK ( 1+1 ) : Z=30+Z*5. 8 

6450  PR I NT" CGRN3 " j : SYSZ8 , 38 , 20 , 5 , INT ( Z ) : RETURN  .109 

6480  : IFZ (2)=0THENZ ( 16) =1 : RETURN  .53 

6490  SYSZ2, Z ( 15) ,54272,25: SYSZ9: SYSZA: RETURN  .191 

6520  : Z*(0)=" LIMBO  CSHIFT03  SONIDO  ACTUAL" : G0SUB5:  .247 
SYSZ2,Z (15) ,49100,50 

6530  SYSZ2, 37864, Z (15) ,50: SYSZ2, 49100, 37864, 50: GOS  .87 
UB6480 

6535  IFPEEK (49488) <  >0THENPOKE49488 , 0: P0KE49488, 1  .56 

6536  RETURN  .219 

6550  : Z$=MID* ( Z$ ( 15) ,2) : Z=VAL (Zl) : 1=0: SYSZ 1 , 6590: Z  .43 
$=MID*(Z*,2) 

6555  IFZ<0ORZ>9THENZ*=MID*(Z*,2)  .184 

6560  READI*: IFI S=Z*THEN6600  .93 

6570  IFI$="FIN"THENZ$ (0) ="NO  EXISTE  "+Z* ( 15) : Z* ( 15  .191 
)=" CFLCH  IZQ3": RETURN 

6580  1  =  1  +  1: GOTO6560  .  93 

6590  DATA  DO , DOS , RE , RES , MI , FA , FAS , SOL , SOS , LA , LAS , S  .113 
I  ,FIN 

6600  SYSZ 1 , 661 0+ 10* Z : Z  =  Z*12+I : IFZ >94ORZ<0THEN6700  .101 


6605  FORJ=0TQI : READK: NEXTJ : Z$ (0) ="NOTA"+STR<  <  Z ) : GO  .4 
T05: 

6610  DATA  274,291,308,326,346,366,388,411,435,461,  .61 
489,518 

6620  DATA  549,581,616,652,691,732,776,822,871,923,  .105 
978,1036 

6630  DATA  1097,1163,1232,1305,1383,1465,1552,1644,  .115 
1742,1845,1955,2071 

6640  DATA  2195,2325,2463,2620,2765,2930,3104,3288,  .119 
3484,3691,3910,4143 

6650  DATA  4389 , 4650 , 4927 , 5220 , 5530 , 5859 , 6207 , 6577 ,  .131 
6968 , 7382 , 782 1 , 8286 


6660  DATA  8779,9301,9854,10440,11060,11718  .212 

6661  DATA  12415,13153,13935,14764,15742,16572  .59 

6670  DATA  17557,18601,19708,20897,22121,23436,2483  .64 

0 , 26306 

6671  DATA  27871,29528,31284,33144  .219 

6680  DATA  35115,37203,39415,41759,44242,46872  .30 

6690  DATA  49660,52613,55741,59056,62567,62567  .52 

6700  Z $ ( 0 ) = " MARGEN  DESDE  N0DO  HASTA  N7LAS" : 1% ( 15) =  .78 
"CFLCH  IZO]": RETURN 

6720  : Z$ ( 16) =" MENSAJE" :Z$(0)=Z$(6)¡ X=2: Z (9) =36: GOS  .198 
UB9 

6730  IFZ» < 15)=" CFLCH  I ZQ3 "ORZ* ( 15) =" "THENRETURN  .134 
6750  Z$(0)=Z$(15) : G0SUB2: IFZ (2) =1 THENSYSZ2 , 347 14,3  .134 
7914,36: RETURN 

6760  SYSZ2, 33690, 37914, 36:RETURN  .40 

6781  : Z ( 12) =0: Z ( 17) =35: Z$ (0) ="  COM" : G0T06785  .161 

6782  ::Z(12)=1:Z(17) =39: Z$ (0) ="  FIN" : G0T06785  .44 

6783  s : : Z(12)=2: Z (17) =37: Z*(0)="  TRANS"  .15 

6785  I=PEEK (53249) :Z(12)=Z(12)-(I >=130) *2— ( I >=138)  .17 
*2: I FZ ( 1 7 ) =37THEN6790 

6786  Z$  (0)  =STR$  ( INT  (1  +  Z  (12)/2)-)+ZS(0)  .124 

6790  I=Z ( 15) +25+Z ( 12) *2: J=PEEK ( I ) +256*PEEK ( 1+1 ) : IF  .230 
Z (11)=2THEN6810 

6800  Z=J+Z ( 1 1 ) *Z ( 13) : GQT06822  .74 

6810  Z*(0)="TIMER"+Z*(0)+"  <0-999>>C4SPC3< " : Z (9) =4  .152 
: X=27 : G0SUB9: Z=VAL(Z*(15> ) 

6811  Z*=LEFT*(Z*(15) ,1) : IFZ*="S"THENZ=60*VAL (MIDS (  .115 
Z$ (15) ,2) ) 

6812  IFZ$="D"THENZ=6*VAL(MID$(Z*(15) ,2) )  .152 

6815  I=Z ( 15) +25+Z (12) *2: IFZ#(15)=" CFLCH  I  ZQ3 "THENR  .223 

ETURN 

6822  IFZ >999THENZ=999  .154 

6823  IFZ<0THENZ=0  .45 


6830  K=INT ( Z/256) : POKEI+1 ,K: K=Z— K*256: POKEI ,K: PRIN  .150 
T" CCOMM63 " ; 

6840  SYSZ8,Z(17) ,9-(Z (12) >1)-(Z (12) >3)-(Z (12) >5) ,3  .48 
, INT(Z) ¡RETURN 

6860  : Z* (0) =" SON IDO  ACTUAL  CSHIFT03  LIMBO" : SYSZ2 , Z  .158 
(15) ,37864,50: G0T05: 

6870  :  .216 

6880  GOSUB6860: FORI=Z ( 15) TOZ ( 15) +49: POKEI ,0: NEXT : Z  .134 
$ ( 0 ) = " L I MP I AR " : G0SUB2 : GOTO6480 

6900  : 1=0: Z=LEN ( Z* (20) ) : FORJ= 1 TOZ : I =1 +2 CFLCH  ARRIB  .152 
A 3 ( Z— J ) *VAL (MI D# ( ZS (20) , J , 1 )): NEXT: RETURN 
6930  : 1=0: Z=LEN(Z*<20) ) : FORJ=lTOZ : K=ASC (MID* ( Z* (20  .99 
)  ,J,1) ) 

6940  I=I+16CFLCH  ARRIBA3 ( Z-J ) * (K+ (K>47ANDK<58) *48+  .229 
( K  >64ANDK<  7 1 ) *55) ¡ NEXT: RETURN 

6960  ¡GOSUB 17: Z*<0) =" BUSCANDO  "+Z$¡ G0SUB2: G0SUB24:  .159 
I F I > 1 9THENRETURN 

6970  G0SUB17: 0PEN2 ,Z(3) ,2,Z$(13)+Z$(12) +  Z$+" , P , R" ¡  .27 
CL0SE2 ¡ GOSUB 1 8 ¡ GOTO 1 5 : 

6990  ¡ IFZ<11)=2THEN7010  .177 

7000  K= (PEEK ( Z (28) ) ANDZ ( 13) ) / ( 1—15* ( Z ( 13) =240) ) ¡ K=  .231 
K+ 1 + ( K+ 1 ) * ( K  > 1 ) 

7005  POKEZ (28) , ( (255— Z ( 13) ) ANDPEEK ( Z (28) ) ) OR (K* ( 1—  .204 
15* (Z (13) =240) ) ) : GOTO7040 

7010  1% (0) ="FACTOR  <0— 15>>C2SPC3<"¡ Z (9)=2: X =25: GOS  .23 
UB9: IFZ*< 15)=" CFLCH  I ZQ 3 " THEN7040 


7020  K=VAL ( Z$ ( 15) ) : IFK<0THENK=0  .157 

7021  I FK  > 1 5THENK= 1 5  .148 

7030  P0KE37993, PEEK (37993) AND 150RK* 16  .229 

7040  Z% (0) ="FACTQR  ="+STRS ( (PEEK (37993) AND240) / 16)  .7 

¡ G0T05: 

7060  ¡ Z=PEEK (49482) ¡ IFZ (11) =2THEN7080  .255 

7070  Z  =  Z  +  Z (11) *Z  < 13) : GOTO7091  .133 

7080  Z  $  ( 0 )  =  " MEMOR I A  < 1  — "+MID* (STR* (Z (30) )  ,2) +" >>C3  .33 
SPC3< " ¡ Z (9) =3: X=26+ ( Z (30) < 100) 


24/Commodore  World 


7085  G0SUB9 : Z=VAL ( Z$ ( 1 5) ) : IFZ*(15)=" CFLCH  I ZQ 3 " THE  .198 
NRETURN 

7091  IFZ  >Z (30) THENZ =Z (30)  .106 

7092  IFZ< 1THENZ=1  .93 

7100  P0KE49482 ,  Z :  PR I  NT  "  C  C0MM6  ]  " ;  i  S YSZ-8 , 37 ,  1 4 , 3  ,  Z  .203 

7110  IFPEEK (49490) =1THENZ=PEEK (49482) s G0SUB7275  .87 

7111  I FPEEK ( 49488 ) <  >0THENPQKE49488 , 0 : P0KE49488 , 1  .122 

7115  RETURN  .32 

7130  t  GGSUB8330: IFZ (11) -2THEN7150  .53 

7140  Z-Z  +  Z(U)*Z(13)  XG0T07161  .121 

7150  Z*(0)-"PASO  <1— 499>>C3SPC3<"« Z (9) =3: X=24¡GQSU  .27 
B9x Z-VAL(Z*(15) ) 

7155  IFZ* (15) -"CFLCH  I ZQ3 "THENRETURN  .8 

7156  IFZ* (15)-" I"THENSYSZE: RETURN  .127 

7157  IFZ* ( 15) -"B"THENSYSZF: RETURN  .72 

7161  IFZ  >499THENZ— 499  .36 

7162  IFZ< 1THENZ—1  .163 

7170  1=49484: K=INT ( Z/256) :P0KEI+1 ,Kx K=Z-K*256: POKE  . 12B 
I , Kx  SYSZB 

7180  IFPEEK (49490) =1THENZ=PEEK (37999+Z ) : G0SUB7275  .194 

7181  I FPEEK ( 49488 X >0THENPOKE49488 , 0 : P0KE49488 , 1  .193 

7185  RETURN  .103 

7200  : IFZ (27) — 0THENGOSUB6: G0TQ6:  .124 

7205  Z-PEEK (49486) x IFZ (11) =2THEN7220  .3 

7210  Z-Z+Z (11)*Z (13) XG0T07231  .112 

7220  Z* (0) —"MEMORIA  DE  PASO  <0-"+MID* (STR* (Z (30) ) ,  .30 
2 )  +  "  >  >  C 3SPC 3 < " x  Z (9) =3 

7225  X=30+ ( Z (30) < 100) : G0SUB9: Z=VAL ( Z* ( 15) ) : IFZ* ( 15  .15 
)«" CFLCH  IZQ 3" THENRETURN 

7231  IFZ>Z (30) THENZ =Z (30)  .247 

7232  IFZ<0THENZ=0  .200 

7240  P0KE49486 , Z : PR I NT " C C0MM6 3 " ; : SYSZ8 , 37 ,16,3, Z:R  .52 
ETURN 

7270  x  GQSUB6860  . 232 

7275  IFZ< 10RZ  >Z (30) THENZ* (0) —"ALTO" : G0T05:  .161 

7276  GOSUB7470: SYSZ2 , K ,  Z  ( 1 5) , 50: GOSUB6480  .124 

7277  Z*(0)="MEMORIA"+STR*(Z  )+"  CSHIFT03  SONIDO  ACT  .155 
UAL " : 60SUB5 

7278  G0T06535:  .136 

7280  :  .116 

7290  Z * ( 0 ) = " MEMOR I A " +STR* ( Z )  +  "  CSHIFT03  LIMBO":GOS  .140 
UB5x  GOSUB7470: SYSZ2 , K , 37864 , 50: RETURN 

7320  : 6OSUB7290: SYSZ2 , Z ( 1 5) ,K, 50  .82 

7330  Z*(0)-H SONIDO  ACTUAL  CSHIFT03  MEMOR I A " +STR* ( Z  .206 
) x  G0SUB5 

7335  IFZ (32) -1 ANDZ< Z (30) THENZ=Z+1 : GOTO7091 x  .59 

7336  RETURN  . 254 

7350  :  GOSUB5250:  K«PEEK  (49482)  :  Z=38499+50*K: J-l+INT  .248 
( (Z-Z (15) ) /254) 

7360  Z (19)=Z: Z* (22) =STR* (K) : IFJ >ITHENI=-1 : RETURN  .136 
7370  1=0: RETURN  .146 


7390  :  Z*  (0)  =  " ERROR  DISCO-"+MID*  (STR*  ( I )  ,2)  +  "<  "+MID  .80 
* (STR* (Z) ,2)+">": G0TQ5: 

7410  : GOSUB17: PRINT415, "S"; Z* ( 13) ; Z* (21 ) ; Z*: GOSUB1  .16 
8 

7420  GOSUB17 : PRINT#15, "R"¡ Z* ( 13) ; ZS (21 ) ; Z*¡ "=" ; Z*(  .62 
12) j  Z*: G0SUB18: G0T015: 


7440  : IFPEEK (49490) =1THENZ=PEEK (49482) :GOTO7270:  .213 

7450  RETURN  .113 

7470  :K=38500+50*(Z-1) : RETURN  .233 

7490  : X=0: Y=22: GOSUB1 : PRINTZ* (4) ;Z*(4) ;Z*(4) ; " C2SP  .217 

C 3 " j  x P0KE3479 1,32: P0KE49476 , 0 

7495  P0KE646 , PEEK ( 4925 1 ) : GOT 01:  .168 

7510  : X=0: Y=22:G0SUB1 : P0KE646 , PEEK (49251 ): PRINTZ* (  .145 
7)  ;  Z* (8) ; Z*  (9)  ; 

7520  P0KE34791, 1 25 :P0KE56295, PEEK ( 49251 ): RETURN  .91 

7550  : PR I NT " C  HOM  3 " ; : 0PEN4 , 4 : CMD4 : P0KE768 , 1 85 : PR I NT  .205 
#4  x  P0KE768 , 1 39 

7560  IFABS (ST) AND128THENZ* (0) -"CONECTA  IMPRESORA":  .209 
G0T05: 

7570  Z* ( 16) —"NOTA" xZ*(0)=Z*(6): X=2: Z (9) =36: GQSUB9  .189 
7580  IFZ*(15)=" CFLCH  I ZQD "THENRETURN  .179 

7590  G0SUB7 : PRINT#4 , Z* ( 15) j  CHR* (13)  .39 

7600  x IFZ (26) -2THENK-Z ( 15) : GOSUB7900: GOTO7510:  .13 

7610  IFZ (26) =3THEN7720  .247 

7620  Z ( 13) =PEEK (49482) x Z*(0)="DESDE  MEMORIA  ACTUAL  .153 
A  >C3SPC3< " x  Z (9) =3: X=30: GQSUB9 
7630  G0SUB7 : I=VAL ( Z* ( 15) ) x IFZ* (15) =" CFLCH  IZQ] "THE  .183 
NRETURN 

7640  IFZ (33) -1THENGOSUB7810  .59 

7645  IFI< 1THENI=1  .118 

7646  IFI >Z (30) THENI—Z (30)  .135 

7650  Z=Z (13) :GOSUB7470: Z (22) =K: IFI<=Z ( 13) ORZ* ( 15) =  .251 
"" THENZ ( 23 ) =K : GOTO7670 

7660  Z=I : GOSUB7470: Z (23) —K  .169 

7670  Z ( 1 3 ) =PEEK ( 49482 ) : I F  Z ( 33 ) = 1 THENPR I NT *4 , CHR* ( 1  .161 
3) ¡ "MEMORIA" ; Z (13) } CHR* (13) \ 

7680  K— Z (22) : GOSUB7900: Z (22) =Z (22) +50: IFI*=" CFLCH  .60 
I ZQ] "THEN6OTO7510: 

7690  IFZ (22) >Z (23) THEN7510:  .178 

7700  Z  =  l+Z ( 13) : GOSUB7091 : IFZ (33) =1 THENGOSUB7810  .166 
77 1 0  G0SUB7 i GOTO7670  . 1 32 

7720  : I=PEEK (49486) x IFI<10RI>Z (30) THENZ* (0)="ALTO"  .204 
: GOT 05: 

7725  GOSUB8330: Z (22) =1 : Z (23) =Z : IFZ (33) =1 THENG0SUB7  .15 
810: G0T07755 

7726  GOSUB7490  .180 

7730  Z=PEEK(37999+Z (23) ) x GOSUB7790  .50 

7735  IFZ< 10RZ >Z (30) THENPR INT"<D>" ; : G0SUB51 85: G0T07  .231 
510: 

7736  IFZ (22) <  >20THEN7730  .152 


7740  Z ( 22 ) = 1 : PR I NT " <  D  > " ; : G0SUB5 1 85 : I FPEEK ( 63 1 ) =95T  .58 
HEN7510: 

7750  G0SUB7 : G0T07726  .50 

7755  Z=PEEK (37999+Z (23) ) : GOSUB7790: IFZ< 10RZ  >Z (30) T  .39 
HEN7890: 

7760  GOSUB7820: IFI *=" CFLCH  I ZQ] "THEN7890:  .178 

7765  G0T07755  .187 


7790  Z*(1)=MID*(STR*(Z) , 2) : GOSUB8050: Z (22)=Z (2  .82 
2) +1 : Z (23) =Z (23) +1 : RETURN 

7800  : Z *  <  0 ) = " C 2SPC ] C  RVSON ] PAUSA C  RVSOFF ] =P  CSHIFT-]  .160 
F I N=  C FLCH  I ZQ] “ : G0T02: 

7810  : : Z* (0) ="PAUSA=P  CSHIFT-]  FIN= CFLCH  IZQ]":GOT  .196 
02: 


7820  : I FPEEK (198) -0THEN7870  . 24 

7830  IFPEEK (631 ) =B0THENPOKE 1 98, 0:GOTO7860  .228 

7840  IFPEEK (631 )=95THENI*=" CFLCH  I ZQ] ": POKE 198 , 0: R  .0 
ETURN 

7850  GOTO7870  . 30 

7860  GOSUB7800: WAIT198, 1 : GOSUB7810: GOTO7830  .142 

7870  I *= " " : POKE 198,0: RETURN  . 1 20 

7890  : Z* (0) =" " : G0T02 :  .78 

7900  IFZ (33) =0THENGOSUB7490  .190 

7910  Z* ( 1 ) — " " x FORZ=0TO20STEP7  .130 

7920  FQRJ=ZTQZ+6: GOSUB8000: Z* ( 1 ) =Z* ( 1 ) +  Z* (2) : NEXT :  .66 
GOSUB8020: NEXT 

7930  F0RJ=21T023: GOSUB8000: Z* ( 1 ) — Z* ( 1 ) +Z* (2) : NEXT :  .18 
GOSUB8020 

7940  J=24: GOSUB8000: Z* ( 1 ) =Z* ( 1 ) +ZS (2) : 6OSUB8020  .193 

7945  IFZ (33) =0THEN7975  .162 

7950  F0RJ-25T037STEP2:  I=K+J  :  G0SUB16:  Y=I :  I=K+J+1 :  GO  .217 
SUBI 6: PRINT#4 , Y+256* I ¡ : NEXT 

7960  PRINT#4 , " CSHIFT— ] " ; : F0RJ=39T042: I=K+J : G0SUB16  .17 
: Z=I AND15: GOSUB7970: Z=INT(I/16) 

7965  GOSUB7970: NEXT : G0T07974  .46 


7970  Z=ZAND3:PRINT#4,MID*("-E0?" ,Z+1,1) ; "  ";: RETUR  .217 
N 

7974  I=K+43: G0SUB16: Z=I AND15: GOSUB7970: PRINT44 , " CS  .147 
HIFT-] " ; 

7975  I  =K-*-43:  G0SUB1 6:  Z  =  INT  (1/16)  :  Z*(l)  =M  I D*  (STR*  (  Z  )  .12 

,2) : GOSUB8020 

7976  IFZ (33) =0THENGOSUB7990: IFI*=" CFLCH  IZQ] "THENR  .103 
ETURN 

7980  F0RJ=44T049:  GOSUB8000:  Z*  ( 1 )  =Z*  ( 1 )  +  Z*  (2)  :  NEXT:  .85 
6OSUB8020 

7985  IFZ (33) =1 THENGOSUB7820: IFI*=" CFLCH  IZQ]"THEN7  .142 
890 

7990  IFZ (33) =0THENPRINT"<D>" ; : G0SUB5185: GOSUB7490:  .243 
I FPEEK (631) =95THEN I *= " C FLCH  I ZQ D " 

7999  RETURN  . 152 

8000  : I=J+K: G0SUB16: IFPEEK (341 15) =67THENZ* (2) ="00"  .191 


: SYSZC, I , Z* (2) :GOTO8015 

8010  Z* (2) =MI D* (STR* ( I ) ,2)  .219 

8015  Z*  (2)  =Z*  (2)  +  "  — "  :  RETURN  .16 

8020  :Z*(1)=Z*(1)+" CSHIFT-] "  .165 

8050  : IFZ (33) =1 THENPR INT#4 , Z* ( 1 ) ; : GOTO8070  .29 

8060  PRINTZ* ( 1 ) ;  .55 

8070  Z*(l)— "": RETURN  .63 

8260  : X=33:Y=8:G0SUB1: IFPEEK (49488) O0THEN8290  .46 


8280  PR I NT " C  C0MM6 ] C  RVSON ] T I MER  C  RVSOFF ] " j : P0KE49488  .90 
, 1 : RETURN 

8290  PR I NT " C C0MM6 ] C RVSOFF ] T I MER " ; : P0KE49488 , 0 : RETU  .178 
RN 

8310  :GOSUB8330: Z=PEEK( 37999+Z ): RETURN  .126 

8330  : Z=PEEK ( 49484 ) +256*PEEK ( 49485 ) : RETURN  . 1 50 

8350  : IFZ (27) =1THENZ (27) =0: PQKE34469 , 160: SYSZH: RET  .214 
URN 

8360  Z (27) =1:P0KE34469, 159: Z=PEEK (49482) :G0T07231:  .220 
8570  : Z * ( 0 ) = " C RVSON ]  RESET!!  C RVSOFF ]; SEGURO?  (S/N  .161 
)>  <":X=30:Z(9)=1: G0SUB9 

8580  IFZ*(15)="S" THENPR I NT " C CLR ] " : POKE53280 ,14: POK  .25 
E5328 1,14: GOSUB 1 7 : SYS64738 

8590  IFZ* ( 15) — " >"THENGOSUB201 10: STOP  .9 

8595  RETURN  . 238 

8610  : P0KE56334 , PEEK ( 56334 ) AND254 : POKE 1 , PEEK ( 1 ) AND  .245 
251:SYSZ2, 53248, 34816, 1664 

8620  POKE 1, PEEK ( 1 ) 0R4 : P0KE56334 , PEEK ( 56334 ) ORI: RET  .95 


URN 

10000  CFLCH  I ZQ] USUARIO  .161 

10010  :  .41 

19999  RETURN  . i67 

20100  CFLCH  I ZQ] BANCO  0  .232 

20110  Z (0)=0:GOSUB5030: Z (2) =1 : GOSUB5130  .144 

20210  Z ( 1 ) =2 : G0SUB5 110: RETURN  .144 


PROGRAMA:  DEMO  LISTADO  9 


10  REM  PRUEBA  DE  SONIDO  -  DEMO  .94 

11  *  .243 

12  FORI-0TO24: READA: P0KE54272+I , A: NEXT  .104 

13  DATA  0,025,16,4,20,15,251  .155 

14  DATA  96,134,32,8,22,142,251  .130 

15  DATA  128,0,0,0,017,174,251  .95 

16  DATA  2,96,242,175  .74 

17  x  .249 

18  P0KE54283 , 23  .168 

19  FORI—1 T015: 60SUB21 : NEXT : P0KE54283 , 22  .169 

20  FQRI=1TQ40: GQSUB21 : NEXT : GOTO 18  .76 

21  POKE  54272, PEEK (54299) : RETURN  .215 
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CIMEX 

ELECTRONICA 


i  iem  imcivcioMs  ¥  umiDAMs  ipAjRA  Commodore 


PRINTER IV  ¿Js^, 

3.450,- 

ROM  PRINTER  IV  para  impresora  MPS-801 
Añade  a  su  impresora  4  tipos  más  de  caracteres. 

Fácil  colocación  sin  soldaduras. 

Mediante  2  switches  accederá  a  4  tipos  diferentes 

de  escritura:  DESCENDER  •  SCfitlBE 
ECLIPSE  • FUTURE 

100%  compatible  con  todos  los  programas  y  gráficos 

CABLES 

CABLE  CENTRONICS  C-64  ai» 

CABLE  40/80  COLUMNAS  C-128  2850 

SERIAL  64  i  eso 

ANTENA  128/64  aso 

VIDEO/AUDIO  64  i  aso 

VIDEO /AUDIO  RGB  AMIGA  500  ¡m 

CENTRONICS  AMIGA  3iso 

ADAPTADOR  CASSETTE  C- 16  uso 

ADAPTADOR  JOYSTICK  C-16 _ 950_ 

INPUT-OUTPUT  DIGITAL 


T»r pata  *ntr>da</ 
salidas  digital#*, 
con  j  canal#*  da 
•  n irada*  o  salí 
da*  d  #  b  bits 

PuaJan  coabl  •  QfS&íj&fSO 
ntru  hasta  16 


INTEGRADOS 

ROM  318020 
ROM  318006 
CPU  8502 
VIDEO  8563 
VIDEO  8566 
PLA  8721 
MMU  8722 
ROMS  Ñ-128 
CIA  6526 
CPU  6510 
SID  6581 
VIDEO  6569 
PLA  906114 
DIV.  VIDEO  8701 
4  ROM  901225-01 
ROM  901226-01 
ROM  901227-03 


COMPILADOR 
CONTABILIDAD  PERSONAL 
EDITOR  DE  ETIQUETAS 
SIMULADOR  DE  SPECTRUM 


BASE  DE  DATOS 


PERSPECTIVAS 
GESTION  DE  STOCKS 


EDITOR  DE  RECIBOS 


AYUDA  AL  PROGRAMADOR 
ENSAMBLADOR  (dos  pasos) 


(d)  3.000  (c)  2.500 
(d)  6.000  (c)  2.500 


(d)  8.000  (c)  3.500 
(d)  3.500  (c)  3.000 
(d)  5.000  (c)  4.500 


(d)  3.000  (c)  2.500 
(d)  3.500  (c)  3.000 


INTERPOD  (Intorface  IEEE) 

DISK  NOTCHER  (Taladro  doble  cara  diskettes) 

BORRADOR  DE  EPROMS 
CONECTOR  PORT  USUARIO 
CONECTOR  PORT  EXPANSION  para  placa 
EPROM  27128 
IC  TESTER 

TARJETA  DE  EPROMS  1 64  K 
JUEGO  BOLIGRAFOS  PLOTTER 
FUENTE  ALIMENTACION  C-64,  V-20 


Cable  40/80  columnas  para  128  y  monitor  televisor 
de  color  RGB  con  Euroconector 


PROGRAMADOR  DE  EPROMS 


EPROMER  I 


Desde  2716-27256.  E  Eproms,  27  CXXX 
Selecciona,  lee,  verifica  y  copia 
Conectare  al  pon  de  usuario. 

Sin  alimentación  exterior 
Voltaje  12,5,  21,25  v. 

Software  en  diskette 
8/16  K. 

14.900 


CINTA  C-IO  no  unidades) 

CINTA  C-20  ilO  unidades) 

FUNDA  C-64  v  VIC-20 
CASSETTE  COMPATIBLE  C-64  y  VIC-20 
JOYSTICK  QUICKSHOT  I 
JOYSTICK  QUICKSHOT  II  +  (con  microrruptores) 
KIT  AJUSTE  DATASSETTE 
PLATINA  EXPERIMENTAL  port  usuario 
VENTILADOR  PARA  DISK  ORIVE 
RATON  C-64  (soft  en  diskette  o  cassette) 

CINTA  IMPRESORA  MPS-8Ó1  y  GP/500 
CINTA  IMPRESORA  STAR  SG-lb  y  OKI  80 


CITIZEN  120D 


53.900,- 


•DIRECTA  A  COMMODORE 
*120  C.P.S.  (NLQ  25  C.P.S.) 

*80  COLUMNAS  EÑ  MODO  STANDARD 
•PAPEL  POR  ARRASTRE  Y  FRICCION 
*10  TIPOS  DE  CARACTERES 
*4K  DE  BUFFER 


ARCHIVADOR 


PARA  100  DISCOS 


INTERFACE  RTTYfCW  NEWSOME  NUEVA  PA*A  «-** 


EL  MEJOR  INTERFACE  DE  COMUNICACIONES  QUE 
EXISTE  PARA  COMMODORE  64/128 

Estas  son  algunas  da  sus  características: 

—  Unidad  Terminal  con  salida  PTT  -  Señal  y  entrada 
audio. 

—  Cartucho  ROM  con  el  programa  operativo  (no  ocupa 
memoria) 

—  Funcionamiento  en  todos  los  transcoptores  (HF, 
VHF...) 

—  Función  Scanner  tanto  on  RTTY  como  en  CW. 

—  Listados  por  Impresora 

—  Grabación  y  lectura  de  datassette. 

—  26  teclas  para  almacenaje  de  mensajes. 

—  Funciones  MSO 

—  Monitor  CW  para  aprendizaje. 

—  Log  Scratch  Pad. 

—  fTXlÓn  ^  <l**con*x*^n  dal  transmisor  desde  el 

—  Manual  detallado  en  castellano  19.900, 


Déle  nueva  imagen  a  su  64  sustituyendo  la 
carcasa  antigua  por  la  nueva  de  perfil  ba¬ 
jo  similar  a  la  del  nuevo  64  C.  mediante  u  - 
na  sencilla  operación. 


5.900  - 


!©  SIfflMtM  >7c 


w  lili  8tw  MOM 


Disco  9.900,- 


Un  programa  de  utilidades  único  en  su  género  que 
permite  leer,  formatear  y  copiar  discos  de  MS-DOS 
en  un  C-128  en  modo  128  y  unidad  de  discos  1571 
No  ejecuta  programas.  Convierte  códigos  ASCII  en 
Commodore.  Manual  de  instrucciones  en  castellano. 

BASE  DE  DATOS  128 

Gestiona  ficharos  da  hasta  2.500  registros  y  campos  por  ragistro. 
doblando  su  capacidad  con  la  unidad  1571  Altas,  bstfas.  modifica 
clonas,  consultas,  búsqueda  y  listado  parcial  o  por  temática  Ma¬ 
nado  sancMo. 

cáseo  8.000 

GESTION  DE  STOCKS  128 

Maneja  1.161  artículos  y  1 7  campos  por  registro.  Altas,  bajas,  con¬ 
sultas.  modificaciones,  búsqueda,  stocks  mínimos,  stock  actual,  pre¬ 
cio  de  compra,  precio  de  venta.  Listados  por  impresora  totales,  par¬ 
ciales  o  por  temas. 

disco  10.000 

UTILIDADES  CP/M  PARA  128.  CONSULTAR 


De  Laxe  Print 


DeLuxe  Video 


Gestión  de  ficheros  para  AMIGA.  Permite  generar  ficheros  FSAM  accesibles 
desde  basic.  Comando  para  lectura,  grabación,  actualización,  búsqueda 
por  claves.  Capacidad  de  fichero  limitada  únicamente  por|  la  capacidad 


SCREENMASTER 


Tratamiento  avanzado  de  entradas  y  salidas  por  pantalla.  Definición  de  campos, 
operaciones  matemáticas  entre  campos,  formateo,  etc...  Implementado  para  pe 
der  acceder  fácilmente  a  las  dis  tintas  rutinas  del  basic. 


EWTEXT 


pito 


CEBADOR 


textos 


Unico  procesador  de  textos  que  incluye  todos  los  caracteres  españoles:  acentos  graves  y  agudos,  fi,  Ñ,  ¡,  <p,  (j.  Con  NEWTEXT  podrá  subrayar,  justificar  el 

margen  derecho,  guardar  el  texto  en  cinta  o  disco,  buscar  y  sustituir  palabras,  cambiar  el  fondo  de  pantalla,  centrar  texto,  definir  caracteres  y  todo  lo  que  se 
puede  pedir  a  un  buen  procesador  de  textos.  Capacidad  de  40  k  y  salida  para  impresora  bus  Commodore  o  Centronics. 

Es  en  suma  el  más  completo  y  a  la  vez  el  más  sencillo  procesador  de  texto  que  se  pueda  encontrar  y  además  al  mejor  precio.  DÍSC0  4.900, _ 

Cinta  4.600,- 

Estc  es  una  demostración  de  las  posibilidades  del  procesador  de 
textos  NEWTEXT 

Puede  subrayar .  acentuar  las  vocales  con  acentos  graves  o  agudos 
<ái,  é,  i  ,  ó,  ó)  y  ademas  ü,  £  y  por  supuesto  también  ñ,  ñ,  ¿  y  i  por 

pantalla  e  impresora  y  accesible  fácilmente.  ¿Conoce  algón  procesador 
de  textos  mas  completo  que  este?. 


Programa  realizado  en  código  máquina,  lo  que  implica  mayor  ra¬ 
pidez  y  ocupa  menos  memoria. 

Tiene  una  capacidad  de  475  cuentas,  5300  apuntes  de  disco 
y  305  apuntes  por  día.  El  límite  de  475  cuentas  se  debe  a  que 
están  siempre  en  memoria  y  se  puede  acceder  a  ellas  instantá¬ 
neamente. 

Se  pueden  introducir  asientos  en  cualquier  fecha,  también  atrs 
sadas,  él  mismo  genera  el  número  de  asiento  y  además  visuali 
za  el  número  de  línea,  descuadre  del  asiento  y  título  de  cuenta, 
también  se  puede  dar  de  baja,  el  programa  actualiza  automáti¬ 
camente  todo,  se  puede  introducir  un  asiento  en  un  solo  apunte. 
Los  listados  se  pueden  hacer  en  cualquier  fecha  y  las  veces  que 
se  desee: 


DISKEiTiTES 


DISKETTES  5  1/4  DS/DD  (ÍO  u.) 
DISKETTES  3  1 12  DS/DD 


1.750,— 

475,— 


y$  SERVICIO  DE  REPARACIONES 

REPARACION  DE  C-64.C- I28.C-I6  Y  VIC-20  ^ 

OISK  ORIVE  1541,1520  Y  1521  REPARACION  Y  AJUSTE. 
REPARACION  Y  AJUSTE  OATASSETTES. 


rCIMEX-| 

ELECTRONICA 

FLORIDABLANCA,  54  ENT.  3.a  A 
08015  BARCELONA  I.  93-424  34  22 


SOLICITE  NUESTRO  CATALOGO 

ENVIOS  CONTRA  REEMBOLSO  A  TODA  ESPAÑA  SIN  GASTOS. 

ENVIOS  INFERIORES  A  2.000  PTAS.,  AÑADIR  300  PARA  GASTOS  DE  ENVIO. 
SUOAMERICA  AÑADIR  700  PTAS.  f  ^  ¡  :■*»* í 

ACEPTAMOS  TARJETAS  DE  CREDITO.  |  J  m—m 


—  Cuentas  (de  fecha  a  fecha). 

—  Asientos  (de  fecha  a  fecha  o  de  número  a  número). 

—  Extractos  de  cuentas  (de  fecha  a  fecha). 

—  Balance  de  situación. 

—  Cuenta  de  explotación. 

—  Balance  de  sumas  y  saldos. 

El  balance  de  situación  se  programa  automáticamente  por  ma¬ 
sas  patrimoniales  según  el  Plan  General  Contable,  aunque  si  se 
desea,  hay  una  opción  para  programarlo  con  diferentes  criterios. 
El  diario  de  cierre  es  automático,  cierra  todas  las  cuentas  de  los 
grupos  6,  7  y  8,  se  puede  anular  el  cierre  simplemente  dando 
de  baja  dichos  asientos. 

Disco  19.900,— 


COMMODORE  64  32.900 

COMMODORE  64+cassitti  compatiblk  36.900 

COMMODORE  128  44.900 

UNIDAD  DE  DISCOS  1541  39.900 

UNIDAD  DE  DISCOS  1571  43.900 


MONITOR  FOSFORO  VERDE 
MONITOR  COLOR  1901 

IMPORTANTE:  loe  portes  soten  s  carpo  del  comprador.  Garantía  6  meses. 


19.900 

58.000 


CONDICIONES  ESPECIALES 
PARA  DISTRIBUIDORES 


HDI  DOS  POR 


(93)424  34  33 


BOLETIN  de  PEDIDO 


Apellidos 

Dirección _ 

Población _ DP. _ 

Incluyo  talón  Bancario  a  nombre  de  C1MEX  ELECTRONICA.  □ 
Contra  Reembolso  □ 


Para  C-64 
por  Ignacio  Urzay 


Sprites 
en  los  bordes 


Posiblemente  muchos  de  vosotros  habéis  podido  obser¬ 
var  que  algunos  de  los  últimos  programas  aparecidos 
en  el  mercado  hacen  uso  de  una  característica  hasta 
ahora  desconocida  de  nuestro  64.  De  alguna  oscura  ma¬ 
nera  logran  mover  sprites  por  los  bordes  de  la  pantalla. 


El  principio  empleado  para 
conseguir  este  efecto  es,  en 
realidad,  bastante  simple. 
Como  todos  sabéis  existen 
unas  coordenadas  de  la  pan¬ 
talla  en  las  cuales,  al  posi- 
cionar  sprites  en  ellas,  éstos 
no  son  visibles  porque  quedan  ocultos 
por  los  bordes,  por  lo  tanto  si  nosotros 
queremos  visualizar  sprites  en  esas  posi¬ 
ciones,  no  tenemos  más  que  desconectar 
los  bordes  de  la  pantalla. 

El  programa  del  listado  1  se  encarga 
de  conseguir  este  efecto.  Para  ello  hace 
uso,  entre  otras  cosas,  de  las  inevitables 
interrupciones  de  pantalla. 

Básicamente  el  programa  se  divide  en 
dos  partes: 

Conexión  de  la  rutina 


1 .  Imprime  mensaje  de  presentación. 

2.  Desactiva  todo  tipo  de  interrup¬ 
ciones,  incluso  las  de  los  timers,  tan  sólo 
deja  activadas  las  interrupciones  por 
barrido  de  pantalla  (ampliamente  expli¬ 
cadas  en  el  número  24  de  esta  revista)  y 
modifica  el  vector  IRQ  para  situarlo  al 
comienzo  de  nuestra  rutina  IRQSUB. 

3.  Sitúa  la  primera  interrupción  por 
ráster  en  la  línea  $F9. 


4.  Vuelve  a  activar  las  interrupciones 
de  1/0  y  regresa  al  basic. 

_ Rutina  IRQSUB 


1.  Borra  la  bandera  de  interrupción 
por  ráster. 

2.  Comprueba  si  el  contenido  de 
FLGTMP  es  1  ó  O,  en  el  primer  caso  la 
interrupción  se  habrá  producido  en  la 
línea  de  barrido  $F9  (fíjate  que  inicial¬ 
mente  FLGTMP  en  el  listado  fuente  es 
1)  por  lo  tanto  sitúa  la  próxima  inte¬ 
rrupción  en  la  línea  $20  y  cambia  el  con¬ 
tenido  de  FLGTMP  a  0,  pero  además 
pasa  la  pantalla  a  24  filas.  A  continua¬ 
ción  el  programa  salta  al  final  de  la 
rutina  normal  IRQ  para  evitar  que  el 
cursor  se  acelere  demasiado  debido  a 
una  excesiva  actualización  de  su  posi¬ 
ción. 

3.  En  caso  de  que  FLGTMP  sea  0  el 
programa  normalizará  la  pantalla  situán¬ 
dola  de  nuevo  a  25  filas,  seleccionará  la 
próxima  interrupción  en  $F9  e  incre¬ 
mentará  el  valor  de  FLGTMP  a  1,  sal¬ 
tando  a  continuación  al  IRQ  normal. 

Concluyendo,  la  desconexión  de  los 
bordes  se  consigue  colocando  la  panta- 
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lia  a  24  filas  cada  vez  que  la  línea  de 
barrido  está  en  la  línea  $F9,  que  es  pre¬ 
cisamente  la  primera  nueva  línea  de 
borde  que  debería  aparecer  al  situar  la 
pantalla  a  24  filas,  pues  como  todos 
sabéis,  reducir  a  24  el  número  de  filas  de 
la  pantalla  significa  ampliar  los  bordes 
en  4  nuevas  líneas  de  barrido  tanto 
superior  como  inferiormente. 

Caracteres  gigantes 


El  programa  de  listado  2  genera 
caracteres  gigantes  (con  un  formato 
muy  conocido)  en  los  sprites,  con  lo 
cual  podremos  conseguir  presentaciones 
realmente  interesantes.  La  utilización 
del  programa  es  muy  simple,  pues  tan 
sólo  nos  exige  colocar  los  8  caracteres  a 
generar  a  partir  de  la  posición  de 
memoria  49411  ($003),  teniendo  en 
cuenta  que  el  carácter  1  se  generará  en  el 
sprite  1,  el  2  en  el  2,  etc. 

Cómo  utilizar  las  rutinas 


Ambos  programas  podrán  ser  intro¬ 
ducidos  en  el  ordenador  mediante  el 
empleo  del  programa  cargador  basic 
(listado  3).  Una  vez  en  la  memoria  bas¬ 
tará  con  un  sys  49152  ($C000)  para  des¬ 
activar  los  bordes,  y  un  sys  49419 
($C10B)  para  generar  los  8  caracteres 
almacenados  de  4941 1  ($003)  a  49418 
($C10A),  en  8  sprites  con  dirección  de 
base  en  15872  ($3E00).  Los  caracteres 
no  deberán  estar  en  formato  ASCII, 
sino  en  el  de  pantalla. 

Si  deseamos  generar  un  carácter  en 
un  solo  sprite  podremos  hacerlo  guar¬ 
dando  el  número  de  sprite  (0-7)  en 
49408  ($000)  y  ejecutando  un  sys 
49434  ($C11A),  el  carácter  a  generar 
deberá  encontrarse  en  la  posición  4941 1 
($C103)-|-número  de  sprite.  Debido  a 
que  el  programa  utiliza  la  ROM  de 
caracteres  para  trabajar,  sólo  tendremos 
acceso  a  un  set  de  caracteres  a  la  vez, 
pero  podremos  alterarlo  modificando  la 
posición  49445  ($025).  Por  ejemplo,  si 
deseamos  caracteres  inversos  utilizare¬ 
mos  un  poke  49445,216  (para  volver  a  la 
normalidad  usa  un  poke  49445,208). 
También  podemos  modificar  fácilmente 
la  dirección  de  base  donde  se  almacena¬ 
rán  los  datos  de  los  sprites  generados 
por  el  programa  alterando  la  dirección 
49449  ($029),  ten  en  cuenta  que  es  el 
byte  alto  pues  el  byte  bajo  se  considera 
inicialmente  0.  Por  último  si  deseáis 
visualizar  los  caracteres  con  otro  for¬ 
mato  podéis  emplear  un  poke  49530,3 
($07 A),  el  valor  normal  es  6. 

En  el  listado  4  encontraréis  un  pro¬ 
grama  de  demostración,  os  recomiendo 
que  lo  analicéis  detenidamente  para 
aclarar  vuestras  dudas.  Este  programa 
combina  las  dos  subrutinas  y  utiliza 
todas  las  características  de  ambas,  por 
lo  tanto  antes  de  ejecutar  este  programa 
deberéis  haber  ejecutado  el  programa 
del  listado  3.  ■ 
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Listado  1 

LDX 

XRE6 

LDA 

#<D0  ; 

DIRECCION  BASE  DE 

»  DESCONEXION  BORDE  SUPERIOR  E 

STA 

BASE+1  ; 

CARACTERES  A  <D07? 

i  INFERIOR 

DE  LA  PANTALLA 

LDA 

#<3E  i 

DIRECCION  BASE  DATOS  DE 

; 

STA 

SPTBAS+1  ; 

SPRITES  A  <3E7? 

1  (C) 

1987 

BY  IGNACIO 

URZAY  1987 

LDA 

TEXTO ,X  j 

CALCULA  DIRECCION  BASE  DEL 

;  (C) 

1987 

BY  COMMODORE  WORLD 

ASL 

A  ; 

CARACTER  EN  X 

i 

BCC 

*•*-4  ; 

CARRY  7 

*-  <C000 

INC 

BASE+1  ; 

SI 

i 

ASL 

A  ; 

ACU. *4 

IRQVEC 

*<0314  j  VECTOR  IRQ 

BCC 

*+4 

VIC 

-<D000  |  DIRECCION  BASE  VIC 

INC 

BASE+1 

DSPLAY 

-VIC+17  |  CONTROL  24/25  LINEAS 

ASL 

A  ; 

ACU. *8 

RASTER 

-VIC+18  |  CONTROL  DE  LINEA  DE  BARRIDO 

BCC 

*+4 

IRQBNR 

-VIC+25  |  REGISTRO  IRQ  VIC 

INC 

BASE+1 

IRQMSK 

=VIC+26  ;  MASCARA  PARA  IRQ  VIC 

STA 

BASE 

ICR 

=<DC0D  i  REGISTRO  IRQ  CIA 

TXA 

i 

CALCULA  DIRECCION  SPRITE  EN  X 

1 

BEQ 

ZERO  i 

SPRITE  N.  0  7 

l 

LDA 

#0  { 

64*X  A  SPTBAS 

START 

LDX 

#0  , 

EMITE  MENSAJE  INICIO 

CLC 

LDA 

TEXTO , X 

ADC 

#64 

BEQ 

OK 

BCC 

*+4 

JSR 

<FFD2 

INC 

SPTBAS+ 1 

INX 

DEX 

BNE 

*— 9 

BNE 

*-8 

OK 

SE  I 

; 

DESACTIVA  INTERRUPCIONES 

ZERO 

STA 

SPTBAS 

LDA 

#< IRQSUB  | 

CAMBIA  VECTOR  IRQ 

LDY 

#63  | 

LIMPIA  AREA  DATOS  SPRITE 

STA 

IRQVEC 

LDA 

#0 

LDA 

#> IRQSUB 

STA 

(SPTBAS) , Y 

STA 

IRQVEC-»- 1 

DEY 

LDA 

#7.01111111 

;  DESACTIVA  TEMPORIZ ADORES 

BNE 

*-3  ; 

NO  HACE  FALTA  LIMPIAR  BYTE  0 

STA 

ICR 

NEXTBT 

LDA 

(BASE) , Y  ; 

TOMA  BYTE  N.  Y  DEL  CARACTER 

LDA 

#1  ; 

ACTIVA  RASTER  IRQ 

STY 

YREG  | 

(Y  ES  INICI ALMENTE  0) 

STA 

IRQMSK 

LDY 

#i  ; 

NIBBLE  A  ROTAR 

STA 

I RQBNR  ; 

LIMPIA  BANDERA  RASTER 

NIBBLE 

LDX 

#3  ; 

N.  VECES  A  ROTAR 

LDA 

#<1B  ; 

LINEA  DE  BARRIDO  INICIAL 

PHA 

STA 

DSPLAY  i 

MSB 

LSR 

A  ; 

ROTA  ACU.  PARA  TOMAR  BIT  N.  X 

LDA 

#<F9 

ROR 

AUX01  ; 

Y  GUARDARLO  EN  AUX01 

STA 

RASTER 

PLA 

CLI 

; 

REACTIVA  INTERRUPCIONES 

LSR 

A  I 

TOMAMOS  DE  NUEVO  EL  MISMO  BIT 

RTS 

ROR 

AUX01  ; 

PARA  CONSEGUIR  DOBLE  ANCHURA 

; 

DEX 

IRQSUB 

LDA 

#1  ; 

BORRA  BANDERA 

BPL 

NI BBLE+2  i 

ACABAMOS  NIBBLE  7 

STA 

IRQBNR  ; 

DE  RASTER 

PHA 

SI 

LDA 

FLGTMP 

LDA 

AUX01  ; 

GUARDAMOS  NIBBLE  DOBLE  AUX01 

BEQ 

RLIN10  } 

INTERRUPCION  PAR  ? 

STA 

(SPTBAS) , Y 

;  EN  DIRECCION  LATOS  DEL  SPRITE 

LDA 

DSPLAY  ; 

NO 

PLA 

RECUPERAMOS  BYTE  DEL  CARACTER 

AND 

#<F7  j 

PANTALLA  A  24  FILAS 

DEY 

STA 

DSPLAY 

BPL 

NIBBLE  ; 

ACABAMOS  CON  LOS  2  NIBBLES  7 

LDA 

•32  ; 

SIGUIENTE  LINEA  DE  BARRIDO 

LDA 

SPTBAS  ; 

SI 

STA 

RASTER 

CLC 

; 

CALCULAMOS  DIRECCION  PARA 

DEC 

FLGTMP  ; 

CAMBIA  A  PAR 

ADC 

#6  ; 

EL  SIGUIENTE  BYTE  DEL  CARACTER 

JMP 

SEA7E  ; 

SALTA  A  FINAL  RUTINA  IRQ 

STA 

SPTBAS  ; 

DENTRO  DEL  SPRITE 

RLIN10 

LDA 

DSPLAY  j 

PANTALLA  A  25  FILAS 

BCC 

*+4 

ORA 

#<08 

INC 

SPTBAS+ 1 

STA 

DSPLAY 

LDY 

YREG 

LDA 

#<F9  1 

SIGUIENTE  LINEA  DE  BARRIDO 

INY 

STA 

RASTER 

CPY 

•8  ; 

ACABAMOS  8  BYTES  DEL  CARACTER? 

INC 

FLGTMP  ; 

CAMBIA  A  IMPAR 

BNE 

NEXTBT 

JMP 

<EA3 1  ; 

SALTA  A  RUTINA  IRQ 

LDA 

<01  ; 

SI 

TEXTO 

.BYTE  '  SPRITES  EN  EL  BORDE',  <0D, 

ORA 

#4  ; 

DESCONECTA  GENERADOR 

'  <C) 1987  BY  I.URZAY' ,  0 

STA 

<01  ; 

DE  CARACTERES 

FLGTMP 

.BYTE  1  ; 

PRIMERA  INTERRUPCION  PAR 

CLI 

i 

ACTIVA  INTERRUPCIONES 

i 

RTS 

; 

.  END 

.END 

Listado  2 

Listado  3 

j  GENERADOR  DE  CARACTERES 

PROGRAMA 

SPRITES 

J  GIGANTES  EN  SPRITES 

; 

100 

REM 

SPRITES  EN  LOS  BORDES 

.  134 

í  (C)  1987  BY  IGNACIO 

URZAY 

110 

REM 

(0  1987  BY  IGNACIO  URZAY 

.  134 

í  (C)  1987  BY  COMMODORE  WORLD 

120 

REM 

(C) 1987  BY  COMMODORE  WORLD 

.  132 

í 

130 

: 

.  106 

*-  <C100 

140 

FORI 

=49 1 52TO49290 : READA  s  POKE I , A 

.52 

5 

sNEXT 

BASE  =<FB 

150 

: 

.  126 

SPTBAS  *<FD 

160 

DATA 

162,0,189,97,192,240,6 

.220 

XREG  ** 

170 

DATA 

32,210,255,232,208,245,120 

.  134 

YREG  =*+ 1 

180 

DATA 

169,49,141,20,3,169,192 

.206 

AUX01  =*+2 

190 

DATA 

141,21,3,169,127,141,13 

.68 

; 

200 

DATA 

220,169,1 , 141 ,26,208,141 

.28 

♦  —  #+3 

210 

DATA 

25,208,169,27,141 , 17,208 

.94 

; 

220 

DATA 

169,249,141,18,208,88,96 

.  152 

TEXTO  .WORD  <1215,  <011A,  <3819 

230 

DATA 

169,1 ,141 ,25,208,173,138 

.42 

. WURD  <0037 

240 

DATA 

192,240,19, 173,17,208,41 

.234 

1 

250 

DATA 

247,141,17,208,169,32,141 

.  196 

LDX  #6  ; 

N.  SPRITE  Y  CARACTER  A 

GENERAR 

260 

DATA 

18,208,206,138,192,76,126 

.  175 

LOOP  STX  XREG 

270 

DATA 

234,173,17,208,9,8,141 

.251 

JSR  SCOPIA  ; 

COPIA  CARACTER  N.  XREG 

SOBRE 

280 

DATA 

17,208,169,249,141 , 18,208 

.33 

LDX  XREG  * 

SPRITE  N.  XREG 

290 

DATA 

238,138,192,76,49,234,32 

.115 

DEX 

300 

DATA 

83,80,82,73,84,69, 83 

.  105 

BPL  LOOP 

310 

DATA 

32,69,78,32,69,76,32 

.5 

RTS 

320 

DATA 

66,79,82,68,69,13,32 

.83 

; 

330 

DATA 

40,67,41,49,57,56,55 

.71 

SCOPIA  SEI  j 

DESCONECTA  INTERRUPCIONES 

340 

DATA 

32,66,89,32,73,46,85 

.  123 

LDA  <01  ; 

ACTIVA  GENERADOR 

350 

DATA 

82,90,65,89,0,1 

.  107 

AND  #<FB  j 

DE  CARACTERES 

360 

t 

.81 

STA  <01 

370 

REM  GENERADOR  DE  CARACTERES 

.  153 
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ZAPPER  OF  THE  YEAR. 

Popular  Computing  Weekly 


JUEGOS 


MARBLE  MADNESS 

Fabricante:  Electronic  Arts 


99 


Por  fin  podemos  disfrutar, 
en  el  C-64,  de  uno  de  los 
juegos  más  emocionantes 
en  las  máquinas  de  video¬ 
juegos.  Como  ya  comen¬ 
tamos  en  las  reseñas  de  software 
para  AMIGA,  MARBLE  MAD¬ 
NESS  ha  sido  convertido  para  el 
C-64.  Creo  que  la  conversión  está 
muy  bien  hecha.  Electronic  Arts  es 
una  de  las  mejores  casas  de  juegos 
de  todo  el  mundo,  como  ha  demos¬ 
trado  en  los  numerosos  programas 
de  altísima  calidad  comercializados 
para  todo  tipo  de  ordenadores.  Con 


aparecen  a  lo  largo  de  las  pantallas, 
no  durarás  mucho. 

Los  martillos  son  muy  peligrosos, 
pero  al  mismo  tiempo  se  pueden  evi¬ 
tar  con  un  poco  de  cuidado.  Más 
difíciles  de  esquivar  son  los  “Papea- 
dores  de  Canicas”,  hambrientos 
seres  que  no  dudarán  en  atraparte  y 
merendarte. 

Cuando  se  esfuma  tu  última 
canica,  una  implacable  escoba  te 
barre  de  la  pista.  Es  el  final  de  un 
duro  combate  contra  los  elementos 
y  los  monstruos.  Tu  objetivo  era  la 
ansiada  meta,  pero  lo  más  probable 


cuanto  al  programa;  en  definitiva, 
un  producto  bueno  y  cuidado,  como 
se  merecen  los  usuarios  de  Commo- 
dore. 

El  juego  se  desarrolla  entre  las 
deslizantes  pistas  de  un  sin  fin  de 
pantallas.  Las  pistas  donde  evolu¬ 
cionan  las  bolas  o  canicas  son  tridi¬ 
mensionales  y  sus  formas  son  de  lo 
más  diverso  y  original.  Seguro  que 
nadie  se  aburre  después  de  llevar  un 
montón  de  horas  dominando  las 
canicas.  La  cantidad  de  pantallas  y 
su  originalidad  llama  la  atención 
desde  el  primer  momento  de  juego. 


este  juego  se  han  esmerado  al 
máximo,  todo  está  bien  hecho. 
Desde  el  movimiento  de  la  bola 
hasta  los  gráficos  de  fondo,  pasando 
por  la  originalidad  de  trampas  y 
monstruos  enemigos.  Es  un  juego  de 
los  que  se  puede  pasar  uno  horas 
intentando  llegar  cada  vez  más  lejos. 

El  juego  está  totalmente  tradu¬ 
cido  al  castellano  por  la  empresa 
que  lo  ha  importado  y  comerciali¬ 
zado.  La  presentación  sigue  la  línea 
de  alta  calidad  de  juegos  como 
DAN  DARE,  GOLF  CONSTRUC- 
TION  SET,  SKY  FOX,  ARCHON, 
etc.  Buena  presentación,  instruccio¬ 
nes  en  castellano,  gran  calidad  en 


Los  gráficos  que  forman  las  pan¬ 
tallas  de  las  pistas  son  sencillamente 
estupendos.  Las  formas  de  las  pistas 
son  muy  originales,  desde  la  más 
plana  hasta  las  onduladas  o  con 
estrechos  pasillos  para  una  sola 
canica.  También  los  gráficos  de  las 
trampas  y  los  monstruos  son  estu¬ 
pendos.  Los  enemigos  que  te  ace¬ 
chan  tienen  un  simpático  aspecto, 
pero  son  realmente  peligrosos  para 
tu  misión.  Las  trampas  que  se  levan¬ 
tan,  los  hoyos,  puentes  que  se  mue¬ 
ven,  etc.,  te  obligan  a  mantener  la 
atención  fija  en  el  juego  y  no  dis¬ 
traerte  con  nada.  Si  te  quedas  a 
observar  los  curiosos  bichitos  que 


es  que  te  hayas  quedado  por  el 
camino. 

El  sonido  de  este- juego  es  muy 
bueno.  La  música,  siguiendo  la 
máquina  original,  es  una  verdadera 
maravilla.  Cada  uno  de  los  seis  nive¬ 
les  diferentes  de  pistas  tiene  una 
música  distinta,  lo  cual  hace  más 
ameno  el  “paseo”.  Cuando  se  pasa 
de  nivel,  las  criaturas  que  te  acechan 
también  cambian.  Con  esto  se  con¬ 
sigue  una  personalidad  especial  en 
cada  nivel. 

Para  terminar,  se  puede  decir  que 
el  juego  es  realmente  increíble. 
Como  programa  es  una  obra  de  arte 
informático.  ■ 
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ENDURO  RACER 

Fabricante:  Activision 


Otro  juego  de  carreras?  Sí 
y  no.  Enduro  Racer  es 
una  conversión  de  la 
máquina  recreativa  del 
mismo  nombre  (original 
de  SEGA);  seguro  que  la  habéis 
visto  en  algún  bar  o  salón  de  video¬ 
juegos.  Ahora  que  tan  de  moda 
están  este  tipo  de  juegos  de  carreras 
(¡volvemos  a  los  orígenes!),  Enduro 
Racer  es  una  buena  conversión  que 
ofrece  rapidez  y  emoción,  algo  dis¬ 
tinta  de  otras  que  desde  hace  tiempo 
se  encuentra  en  el  mercado.  Acción 
y  habilidad  se  combinan  para  ofre¬ 
cer  un  producto  muy  majo. 

El  escenario  es  un  circuito  de 
carreras  para  motos,  lleno  de  mon¬ 
tículos  que  hay  que  saltar  (o  esqui¬ 
var),  otras  motos  que  compiten  con¬ 
tra  la  nuestra  y  diversos  obstáculos 
que,  para  variar,  entorpecen  el 
camino. 

Nada  más  comenzar  la  carrera 
aparece  la  cuenta  atrás:  3,  2,  1... 
GO!  y  todas  las  motos  de  la  carrera 
parten  velozmente  hacia  la  primera 
curva.  Para  controlar  tu  moto  pue¬ 
des  hacer  lo  siguiente:  girar  a  los 
lados,  acelerar,  frenar  y  también 
hacer  un  “caballito”.  Esto  es  espe¬ 
cialmente  importante  cuando  tomas 
los  saltos.  Las  curvas  no  suelen  ser 
demasiado  cerradas,  de  modo  que 
frenar  no  sirve  casi  de  nada,  a 
menos  que  lo  hagas  en  el  momento 
de  la  caída:  muchos  de  los  montícu¬ 
los  se  encuentran  en  curvas  y,  o  los 
tomas  desde  dentro  con  gran  habili¬ 
dad,  o  acabas  yéndote  a  la  cuneta  (y 
no  hace  falta  decir  que  está  plagada 
de  rocas). 

Hay  cinco  niveles,  cada  uno  dife¬ 
rente,  a  los  que  puedes  llegar  com¬ 
pletando  cada  recorrido  antes  del 
tiempo  máximo  disponible  (que 
aparece  en  todo  momento  en  la  pan¬ 
talla).  El  primero  es  relativamente 
simple,  pero  a  partir  del  segundo  la 
cosa  se  complica:  piedras  que  inva¬ 
den  la  calzada,  árboles,  más  montí¬ 
culos,  agua  a  ambos  lados  de  la 
pista...  cualquier  cosa  puede  hacerte 


Los  gráficos  de  este  juego  son 
buenos  (aunque  los  de  fondo  dejan 
algo  que  desear),  y  la  animación  está 
bien  conseguida,  a  pesar  de  que  no 
da  el  mismo  efecto  de  velocidad  que 
otros  juegos  del  mismo  tipo.  La 
banda  sonora  es  un  buen  acompa¬ 
ñamiento  y  el  control  de  la  moto  es 
muy  bueno.  Hay  efectos  curiosos, 
como  cuando  haces  un  caballito:  la 
moto  salta  y  el  motorista  se  queda  a 
dos  manos  sobre  el  manillar  y  acaba 
casi  “haciendo  el  pino”  sobre  la 
moto,  para  luego  recuperar  el  con¬ 
trol.  Cuando  chocas  contra  un  obs¬ 
táculo  u  otro  motorista  la  moto  sale 
lanzada  por  los  aires  y  queda  des¬ 
truida  (aunque  te  dan  todas  las  que 
necesites).  El  tiempo  que  se  pierde 
en  esta  operación  puede  decidir  el 
curso  de  la  carrera,  de  modo  que 
debes  procurar  caerte  lo  menos 
posible. 

Enduro  Racer  está  disponible  en 
versiones  para  otros  ordenadores, 
donde  parece  ser  que  es  un  gran 
éxito.  Esperemos  que  en  Commo- 
dore  suceda  lo  mismo,  pues  este 
juego  tiene  su  atractivo.  ■ 
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perder  el  tiempo  precioso  que  nece¬ 
sitas.  Por  supuesto,  debes  evitar  a 
los  demás  corredores,  que  si  bien  no 
van  muy  rápido  se  suelen  colocar  en 
los  peores  lugares  cuando  quieres 
hacer  una  maniobra  importante. 


JUEGOS 


WEST  BANK 

Fabricante:  Din;  mic 


Por  fin!  ya  podemos  disfru¬ 
tar  de  las  conversiones  de 
los  juegos  de  Dinamic,  una 
de  las  mejores  casas  espa¬ 
ñolas  en  este  campo.  Hace 
tiempo  comentábamos  en  esta  mis¬ 
ma  sección  Camelot  Warriors,  uno 
de  sus  más  exitosos  juegos,  y  hoy  le 
toca  el  turno  a  West  Bank.  El  mes 
que  viene  tendréis  Phantomas  2  y 
Army  Moves. 

West  Bank  es  una  adaptación  del 
videojuego  del  mismo  nombre,  en  el 
que  haces  el  papel  de  “cajero”  en  un 
banco  del  salvaje  oeste.  En  las  ofici¬ 
nas  hay  doce  puertas,  de  las  que 
aparecen  en  pantalla  sólo  tres  cada 
vez.  Cuando  una  puerta  se  abre,  sale 
de  ella  un  personaje,  que  puede  ser 
de  los  “buenos”  o  de  los  “malos”.  Si 
es  uno  de  los  malvados  bandidos  que 
quieren  atracarte,  debes  desenfun¬ 
dar  rápidamente  y  acabar  con  él, 
pero  ¡no  te  equivoques!,  si  te  cargas 
al  granjero  que  viene  a  ingresar  sus 
ganancias  mensuales  o  a  la  chica  del 
saloon,  perderás  una  vida.  Ni  que 
decir  tiene  que  también  la  pierdes  si 
no  acabas  a  tiempo  con  los  bandi¬ 
dos,  pues  no  son  mancos  y  hacen 
buen  uso  de  sus  Colt.  Naturalmente, 
como  aparecen  dos  o  tres  a  la  vez, 
tienes  que  tener  muchos  reflejos 
para  hacerlo  bien  y  rápido. 

Cuando  en  una  puerta  has  conse¬ 
guido  un  depósito,  puedes  moverte 
a  izquierda  o  derecha  para  inten¬ 
tarlo  en  la  siguiente.  Cuando  hayas 
completado  las  doce  pasarás  al 
siguiente  nivel  (los  niveles  se  cuen¬ 
tan  por  días)  donde  aparecerán  más 
y  más  rápidos  forajidos. 

En  cada  nivel  hay  unos  personajes 
característicos:  en  el  primero  apare¬ 
cen  como  buenos  “la  chica”  y  un 
vaquero  con  pinta  de  buenazo.  Hay 
un  peligroso  bandido  (con  barba  y 
todo)  que  siempre  aparece  con  la 
pistola  en  la  mano,  dispuesto  a  aca¬ 
bar  contigo.  También  hay  un  ena- 
nito  muy  curioso:  lleva  cuatro  o 
cinco  sombreros  y  cada  vez  que  le 
disparas  desaparece  uno.  Debajo  del 
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último  puede  haber  una  bolsa  con 
dinero  o  bien  una  bomba  “de  bola” 
al  estilo  de  los  tebeos.  Si  disparas  a 
esta  última,  explotará;  lo  que  debes 
hacer  es  disparar  sólo  si  hay  una 


bolsa. 

Después  del  primer  nivel,  co¬ 
mienzan  a  aparecer  nuevos  persona¬ 
jes,  por  lo  general  de  los  “malos”. 
Un  elegante  cowboy  a  lo  Yul  Brai- 
ner  (o  sea,  calvo),  que  generalmente 
te  saca  una  pistola  a  los  pocos 
segundos  (¡no  debes  matarlo  an¬ 
tes!);  vaqueros  con  sombrero;  meji¬ 
canos...  un  poco  de  todo.  Poco  a 
poco  irás  conociéndoles  y  acostum¬ 
brándote  a  su  manera  de  actuar.  Es 
la  única  forma  de  salir  victorioso. 

Los  gráficos  de  este  juego  son  de 
lo  mejorcito  que  se  ha  visto  última¬ 
mente:  muy  bien  definidos,  con  una 
animación  verdaderamente  buena, 
scroll  fino  en  el  movimiento...  De  la 
música  puede  decirse  lo  mismo, 
típica  del  oeste,  a  tres  voces,  aprove¬ 
chando,  en  definitiva,  el  ordenador 
para  el  que  está  pensada.  El  pro¬ 
grama  está  completamente  en  caste¬ 
llano.  Ciertamente,  West  Bank  es  un 
arcade  que  puede  hacer  las  delicias 
de  todos  los  Commodorianos;  llama 
mucho  la  atención  y  es  difícil  dejarlo 
después  de  jugar  un  par  de  par¬ 
tidas.  ■ 


JUEGOS 


STAR  RAIDERS  II 

Fabricante:  Electric  Dreams 


La  nave  nodriza  de  los 
Zylones  está  dispuesta  pa¬ 
ra  destruirte  con  sus  olea¬ 
das  de  naves  de  combate. 
El  maléfico  Chut,  líder  de 
las  fuerzas  de  guerreros  Zylones,  ha 
tomado  el  sistema  estelar  de  Proc- 
yon.  Ha  construido  bases  de  ataque 
que  son  capaces  de  preparar  rápidas 
y  numerosas  oleadas  de  escuadrones 
Zylones.  Tu  querido  planeta  Teris 
está  siendo  asolado  en  estos  mo¬ 
mentos  por  los  terribles  ataques  de 
los  Zylones  comandados  por  Chut. 

Tu  misión  está  clara,  debes 
enfrentarte  a  los  Zylones  como 
corresponde  a  un  fiel  STAR  RAI- 
DER.  Para  ello  tienes  que  aniquilar 
la  fuerza  Zylona,  penetrar  en  el  sis¬ 
tema  Procyon  y  destruir  todas  las 
bases  de  ataque.  Ten  en  cuenta  que, 
si  no  destruyes  las  bases  de  ataque, 
los  esclavos  de  los  Zylones  construi¬ 
rán  rápidamente  nuevos  escuadro¬ 
nes  cada  vez  que  destruyas  uno  de 
ellos. 

La  zona  de  combate  es  muy 
amplia,  abarca  los  sistemas  Celos  IV 
y  Procyon.  Además,  debes  defender 
las  estaciones  espaciales  de  la  Fede¬ 
ración,  sólo  así  podrás  repostar  y 
tener  a  punto  la  nave  Liberty  Star. 

La  mira  de  tu  cañón  láser  está  en 
el  .centro  de  la  ventana  de  tu  nave. 
Las  naves  Zylonas  están  dispuestas 
a  destruirte.  En  el  panel  de  control 
tienes  los  indicadores  de  fuel,  la 
barra  de  armamento,  el  contador  de 
misiles  de  superficie,  la  ventana  de 
mensajes,  barras  de  temperatura  del 
cañón  láser  y  scanner  táctico.  El 
scanner  táctico  tiene  dos  modos  de 
operación,  la  localización  de  las 
naves  enemigas  y  el  sistema  de 
armas  propias.  Además,  muestra 
también  los  escudos  y  maquinaria. 

El  control  de  la  nave  y  el  arma¬ 
mento  es  bastante  sencillo.  La  velo¬ 
cidad  de  movimientos  y  el  realismo 
de  la  ventana  de  combate  está  muy 
bien  conseguido.  A  pesar  de  todo, 


Star  Raiders 

The  GreaLGalactic  Adventure  Continúes 


tampoco  es  un  sistema  de  los  más 
originales,  hay  muchos  programas 
parecidos.  Lo  que  sucede  realmente 
es  que  no  hay  muchas  posibilidades 
de  presentar  una  pantalla  de  com¬ 
bate,  y  casi  siempre  se  recurre  a  las 
más  usuales.  En  este  programa  no  se 
aprecia  una  especial  atención  a  los 
gráficos  de  fondo,  sin  embargo,  los 
movimientos  de  esos  gráficos  sí 
están  cuidados  y  depurados.  La 
velocidad  del  juego  es  muy  buena. 

Cuando  se  está  luchando  durante 
un  rato,  se  aprende  a  utilizar  las 
diversas  armas  que  posee  nuestra 
nave.  Además  del  cañón  láser,  la 


nave  va  armada  con  cañones  de 
iones  y  potentes  misiles  de  superfi¬ 
cie.  Por  su  parte,  los  Zylones  tienen 
una  completa  flota  de  combate: 
voladores  Zylones,  destructores  y 
naves  comandantes.  Cada  una  tiene 
sus  características  especiales.  Lo 
más  importante  es  destruir  el  mayor 
número  de  ellas  para  conseguir  ani¬ 
quilar  el  poderío  Zylon. 

En  la  nave  existen  muchos  con¬ 
troles  que  atender,  por  lo  que  se  ha 
incorporado  la  posibilidad  de  dete¬ 
ner  el  juego  mediante  la  tecla  P.  Es 
muy  útil  para  “echar  un  vistazo”  al 
complejo  panel  de  control.  Las  ins¬ 
trucciones  del  juego,  traducidas  al 
castellano,  te  ayudarán  a  realizar  tu 
misión.  Gracias  a  esto,  podrás 
dominar  las  situaciones  de  peligro. 

En  general  es  un  juego  de  acción  y 
estrategia  bastante  bueno.  Sigue  la 
línea  de  muchos  otros  de  este  tipo, 
pero  añadiendo  al  mismo  tiempo 
una  buena  programación  de  sonido 
y  movimientos.  Gustará  a  todos  los 
mata-marcianos  y  similares.  ■ 
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JUEGOS 


FIRETRACK 

Fabricante:  Electric  Dreams 


Firetrack  es  un  auténtico 
arcade,  mata-marcianos  o 
como  lo  quieras  llamar. 
Aquí  lo  que  cuenta  es  la 
rapidez  y  habilidad  para 
matar  la  mayor  cantidad  de  bichos 
que  aparezcan  por  la  pantalla  en  el 
menor  tiempo  posible.  Nada  de 
estrategia  ni  inteligencia...,  hay  que 
utilizar  la  fuerza  bruta  sin  cuartel 
contra  los  malvados  alienígenas. 

Los  malos  de  la  película  son  los 
“Piratas  Industriales”,  que  se  han 
hecho  con  el  control  de  las  colonias 
del  cinturón  de  asteroides.  Para 
recuperar  la  ruta  de  comercio  en  los 
ocho  mundos  que  controlan  hay  que 
destruir  las  plantas  nucleares  y  los 
centros  de  comunicaciones  de  estas 


los  objetivos  prioritarios  de  tu 
misión.  Al  final  de  cada  mundo  apa¬ 
rece  la  llamada  “Roca  del  Diablo”, 
en  donde  hay  que  cargarse  la  mayor 
cantidad  de  “ojos”  (plantas  nuclea¬ 
res  camufladas)  para  conseguir  bo- 
nus. 

Al  principio  comienzas  con  tres 
naves  HatchFighters,  que  disparan 
a  gran  velocidad  (no  es  necesario  ni 
apretar  el  botón  de  fuego,  lo  hacen 
solas)  y  que  tienen  muy  buena 
maniobrabilidad.  Se  pueden  ganar 
más  puntos  destruyendo  muchos 
centros  de  ordenadores  o  saliendo 
del  Espacio  Común. 

Los  gráficos  de  este  juego  son 
realmente  fabulosos:  los  fondos  no 
son  sólo  los  típicos  “gráficos  metali- 


pero  otras...  ¡parece  como  si  pensa¬ 
ran!  Hay  unas  con  forma  de  brazos 
espirales  que  dan  vueltas  por  toda  la 
pantalla  a  gran  velocidad,  otras  que 
son  indestructibles  (aunque  van 
muy  despacio)  y  si  no  eres  rápido 
acabarán  acorralándote,  otras  que 
se  mueven  de  forma  aleatoria..., 
realmente  son  muy  curiosas  y  pro¬ 
porcionan  variación  al  juego. 

No  todo  acaba  aquí:  si  crees  que 
con  defenderte  de  las  naves  lo  tienes 
todo  ganado,  te  equivocas.  Además, 
debes  intentar  acabar  con  los  cen¬ 
tros  de  energía  y  ordenadores,  que 
normalmente  se  colocan  en  los  luga¬ 
res  más  propicios  para  que  seas  des¬ 
truido.  Si  no  andas  con  cuidado,  la 
“avaricia  puede  romper  el  saco”  y 


colonias. 

Cada  uno  de  los  ocho  mundos 
responde  a  un  diseño  típico  de  estos 
cuatro:  Baseworld,  Dustworld,  Ice- 
world  y  Mallworld  (¡ajá,  falta 
Commodoreworld!).  Son  todos  dis¬ 
tintos  de  los  anteriores  y  las  defen¬ 
sas,  los  nodos  de  energía,  de  comu¬ 
nicaciones  y  de  ordenadores  (obje¬ 
tivos  del  juego)  están  situados  de 
forma  estratégica.  Desde  tu  nave  los 
ves  como  cuadrados  blancos  que 
contienen  “+”,  “X”  y  “?”;  esos  son 


zados”  de  juegos  como  Uridium  o 
Parallax,  sino  que  además  hay 
zonas  con  vegetación,  torres  defen¬ 
sivas,  “agujeros”  a  través  de  los  que 
se  ve  el  espacio  exterior,  edificios... 
muy  buenos.  Hay  varios  tipos  de 
naves  enemigas  (7  u  8)  que  se  mue¬ 
ven  en  formación  casi  siempre  de  la 
misma  manera,  de  modo  que  al 
cabo  de  llevar  un  rato  jugando  te  las 
conoces  bastante  bien.  Algunas  son 
sencillas  de  evitar,  pues  salen  tra¬ 
zando  círculos  o  bien  en  línea  recta, 


acabarás  en  una  fosa  espacial. 

Un  buen  aliciente  para  jugar  a 
Firetrack  es  que  no  tienes  por  qué 
empezar  desde  cero  cada  vez  que  te 
matan.  De  hecho,  puedes  elegir,  con 
sólo  pulsar  una  tecla,  uno  de  los  tres 
mundos  en  los  que  puedes  comenzar 
(aunque  hay  ocho  en  total). 

En  definitiva,  Firetrack  es  un 
auténtico  “arcade”  del  que  te  cuesta 
despegarte  tras  las  primeras  partidas 
y  que  puede  ofrecer  diversión  (y 
desahogo)  durante  mucho  tiempo. ■ 
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MOLECULE  MAN 

Fabricante:  Mastertronic 


Molecule  Man  es  otro 
típico  juego  de  labe¬ 
rintos  tridimensiona¬ 
les,  con  objetos  para 
recoger,  bichos  que 
atrapar  y  puertas  para  abrir.  Está 
realizado  con  unos  gráficos  bastante 
curiosos  aunque  “tipo  spectrum”: 
sin  color  pero  con  buena  definición. 
Realmente,  no  aprovecha  en  este 
aspecto  la  capacidad  del  C-64. 

El  objetivo  del  juego  es  capturar 
Ramboides,  una  forma  de  oveja 
extraterrestre  que  ha  sido  descu¬ 
bierta  en  el  planeta  Andromadous. 
Estos  bichos  tienen  una  vida  de  20 
minutos,  de  modo  que  tienes  que  ser 
rápido  para  capturarlos  y  teletrans¬ 
portarlos  a  tiempo.  No  son  muy 


inteligentes,  así  que  van  por  los  pasi¬ 
llos  chocándose  contra  las  paredes  y 
rebotando  de  un  lado  para  otro. 
En  un  recuadro  aparece  el  orden  en 
que  hay  que  colocar  4  Ramboides, 
que  tienes  que  capturar  para  pasar  a 
la  caverna  siguiente  (hay  20  en  total, 
y  bastante  grandes).  Naturalmente, 
el  tiempo  es  limitado. 

Para  moverte  dispones  de  un 
droid  (el  Molecule  Man)  que  puede 
moverse,  perforar  túneles,  ir  en 
vuelo  y  en  barrena.  Puedes  ver  en  un 
mapa  la  situación  de  los  Ramboides 
que  tienes  que  capturar.  También 
hay  indicadores,  “píldoras”,  que  sir¬ 
ven  para  obtener  energía  y  “bom¬ 
bas”  que  puedes  hacer  explotar. 

En  la  cinta  va  incluido  una  espe¬ 
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cie  de  “construction  set”  con  el  que 
puedes  construir  tus  propios  labe¬ 
rintos,  cuando  te  canses  de  iodos  los 
que  van  incluidos.  Es  una  opción 
muy  maja  que  asegura  el  entreteni¬ 
miento.  ■ 


SPELLBOUND 

Fabricante:  Mastertronic 


Saliéndose  de  la  línea  “arca- 
de”  de  Mastertronic,  Spell- 
bound  es  un  juego  mitad 
plataformas,  mitad  aven¬ 
tura,  una  mezcla  curiosa 
que  produce  un  buen  resultado  para 
los  aficionados  a  este  tipo  de  juegos. 

El  funcionamiento  del  juego  es 
bastante  simple,  pues  funciona  por 
una  parte  como  un  juego  de  acción  y 
por  otra  está  controlado  totalmente 
por  menús.  Pulsando  el  botón  del 
joystick  aparecen  un  buen  número 
de  opciones  que  el  personaje  puede 
realizar:  desde  coger  un  objeto  o 
hablar  con  un  personaje  hasta  leer, 
lanzar  un  conjuro  o  teletranspor¬ 
tarse  a  otro  lugar.  También  apare¬ 
cen  las  características  de  cada  per¬ 
sonaje  cuando  estás  hablando  con 


él.  Este  sistema  de  visualización  de 
datos  por  menús  hace  muy  sencilla 
la  entrada  de  datos  sin  tener  que 
aprender  un  “lenguaje  conversacio¬ 
nal”,  como  sucedía  en  aquellos  jue¬ 
gos  tipo  El  Hobbit,  Zork  o  Ultima. 

Nuestro  personaje  es  un  caballero 


mágico,  héroe  de  los  Finder  Keepers 
(los  Puntoembocas).  El  objetivo  del 
juego  es  rescatar  a  Gimbal  el  Mago, 
que  ha  sido  hecho  prisionero  en  el 
castillo  de  Karn,  junto  con  siete  de 
sus  amigos.  Hay  que  recorrer  las 
salas  y  mazmorras  del  castillo  una 
por  una,  buscando  los  objetos  que 
puedan  ser  útiles;  también  hay  que 
ir  recogiendo  llaves,  conjuros  y  todo 
tipo  de  objetos  que  pueden  ser  útiles 
en  algún  momento. 

Los  gráficos  están  bastante  bien: 
son  muy  variados  y  coloridos,  pero 
por  otro  lado,  no  hay  apenas  efectos 
sonoros.  En  definitiva,  Spellbound 
es  un  juego  que,  aunque  típico,  tiene 
unas  cuantas  innovaciones  curiosas 
que  lo  hacen  interesante.  Es  una 
buena  aventura  gráfica.  ■ 
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El  grito  de  “¡Ghostbusters’!” 
fue  una  de  las  primeras 
cosas  que  muchos  oímos 
decir  al  C-64.  Además  de 
hablar,  este  juego  tiene 
una  música  fenomenal,  unos  gráfi¬ 
cos  muy  buenos,  aunque  como 
juego  no  cree  adicción  ni  sea  excesi¬ 
vamente  interesante.  Fue  el  autén¬ 
tico  “juego  bomba”  de  su  época, 
además  de  ser  una  de  las  primeras 
(si  no  la  primera)  adaptaciones-de- 
película  que  se  hicieron. 

Programado  completamente  por 
David  Crane  (que  recibió  de  la 
revista  “Electronic  Games”  un  pre¬ 
mio  como  “mejor  programador  del 
año”),  Ghostbusters  es  un  juego  de 
esos  que  solemos  llamar  “comple¬ 
tos”.  Mezcla  una  parte  de  acción  (la 
caza  de  los  fantasmas)  con  otra  de 
medio-estrategia  (elegir  las  armas  y 
el  equipo,  poner  trampas,  moverse 
por  la  ciudad...),  todo  ello  acompa¬ 
ñado  de  una  banda  sonora  fantás¬ 
tica,  a  tres  voces,  con  varios  instru¬ 
mentos  y  de  “larga  duración”. 

Nada  más  empezar  el  juego  das  tu 
nombre  y  tu  número  de  cuenta  ban¬ 
cada  para  saber  cuánto  dinero  tie¬ 
nes.  Esta  característica  fue  una 
novedad  en  su  día  y  te  permite  jugar 
muchas  veces  seguidas  sin  tener  que 
empezar  de  cero  cada  vez  y  sin  tener 
que  grabar  nada  en  la  cinta  o  disco. 
Lo  que  hace  en  realidad  es  codificar 
la  cantidad  de  dinero  que  tienes  y  tu 
nombre  en  ese  número.  Hubo  una 
temporada  en  la  que  las  revistas 
publicábamos  “listas  de  cuentas” 
para  obtener  mucho  dinero  al 
instante. 

Al  comenzar  el  juego,  lo  primero 
que  hay  que  hacer  es  equipar  a  tus 
apuestos  cazafantasmas  con  un 
coche,  trampas,  detectores,  rayos 
láser,  aspiradoras  para  fantasmas..., 
hasta  donde  te  llegue  el  presupuesto. 
Naturalmente,  cuanto  más  dinero 
lleves  mejor  será  el  equipo  y  más 
fácil  cazar  los  fantasmas. 

El  escenario  es  un  plano  de  la  ciu¬ 
dad,  donde  se  indican  las  calles  y 
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GHOSTBUSTERS 


Fabricante:  Activision 


aparecen  unos  cuantos  edilicios. 
También  puede  verse  el  Cuartel 
General  de  los  Cazafantasmas,  don¬ 
de  debes  ir  de  vez  en  cuando  para 
recoger  trampas  u  hombres. 

Los  fantasmas  comienzan  a  apa¬ 
recer  desde  las  calles  periféricas,  y  se 
dirigen  al  Zuul  (el  templo  donde 
está  el  “malo”),  que  es  el  lugar 
donde  se  reúnen.  Debes  intentar 
detenerlos  y  cazar  los  más  posibles. 
Cuando  una  casa  parpadea  en  rojo 
quiere  decir  que  hay  un  fantasma 
allí. 

Para  cazar  al  fantasma,  en  primer 
lugar,  debes  colocar  la  trampa  en  el 
suelo  y  situar  dos  hombres  a  ambos 
lados.  El  fantasma  revuela  por  el 
edificio  y  en  el  momento  justo  debes 
de  disparar  los  rayos  de  tus  cazafan¬ 
tasmas  para  acorralarlo  sobre  la 
trampa.  Hay  que  evitar  que  se  cru¬ 
cen  los  rayos  (o  los  hombres  mue¬ 
ren)  y  apuntar  bien  al  disparar  la 
trampa.  Si  no,  el  fantasma  acabará 
con  uno  de  tus  ghostbusters,  que 
gritará  “¡He  slimed  me!”  (“¡Me 
moqueó!”).  Si  lo  atrapas,  se  irán  de 
la  casa  tras  lanzar  el  grito  triunfal  de 
“¡Ghostbusters!”. 


A  partir  de  aquí  el  juego  se  enlen¬ 
tece  un  poco...,  hay  un  indicador  de 
PK  ENERGY  (Energía  Paranor¬ 
mal)  que  va  aumentando.  Cuando 
llegue  a  1.000  el  juego  habrá  termi¬ 
nado,  a  menos  que  hasta  ese 
momento  hayas  ganado  más  dinero 
que  el  que  tenías  al  principio  del 
juego.  Cuando  hay  más  de  500  PK, 
puede  aparecer  el  famoso  muñe- 
quito  “Mashmallow”,  una  especie 
de  “michelín”  gigante  que  aplasta 
edificios  a  su  paso.  Para  destruirlo 
tienes  que  haber  comprado  “cebo 
para  fantasmas”  (ghost  bait)  y  lan¬ 
zarlo  pulsando  la  letra  “b”  en 
cuanto  le  veas  aparecer.  De  lo  con¬ 
trario  arrasará  algunos  edificios,  y 
te  pondrán  una  fuerte  multa  (hay 
que  estar  en  todo). 

Para  llegar  al  final  del  juego,  lo 
mejor  es  hacer  lo  siguiente:  comprar 
“cebo”  y  utilizarlo  contra  el  Mash¬ 
mallow.  También  conviene  detener 
a  los  fantasmas  que  se  dirigen  al 
centro  pasando  con  el  coche  sobre 
ellos,  para  después  “aspirarlos”  con 
el  “ghost  vaccum”  (aspiradora  para 
fantasmas).  Si  lo  haces  así,  al  poco 
tiempo  habrás  conseguido  el  dinero 
suficiente  para  pasar  al  templo 
cuando  el  PK  llegue  a  1.000. 

En  la  parte  principal  del  Zuul 
aparece  el  muñequito  Mashmallow 
dando  saltos  de  un  lado  a  otro. 
Debes  conseguir  pasar  al  menos  dos 
de  tus  tres  cazafantasmas  por  la 
puerta:  si  lo  logras,  habrás  ganado  y 
subirán  hasta  la  azotea  del  edificio, 
destruyendo  finalmente  al  monstruo 
(¡bieeeeen!). 

Actualmente,  Ghostbusters  es  un 
juego  pasado  de  moda,  que  parece 
lento  y  monótono,  pero  en  su  día 
fue  una  auténtica  bomba.  Los 
aspectos  más  destacables:  la  música, 
los  gráficos  y  la  síntesis  de  voz.  No 
podía  faltar  en  esta  sección  de  jue¬ 
gos  clásicos.  ■ 
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GENLOCK  PAL  A  8600 

Excelente  herramienta  para  los  profesionales  del 
vídeo,  permite  mezclar  la  imagen  del  ordenador 
con  cualquier  señal  externa  de  vídeo  haciendo 
fundidos  entre  ambos  y  pudiendo  escoger 
mediante  software  adjunto  el  color  que  desea, 
opaco  o  transparente.  Compatible  con  cualquier 
software  del  mercado. 

Precio:  139.000  Pts. 


SOFTWARE 

Pesetas 

j  Pro-Vídeo  CGI- 
PAL  . 

35.000 

AEG1S  DRAW 
PLUS  . 

69.000 

DE  LUXE  PAINT 
11  . 

34.000 

PAGE  SETTER 

34.000 

Y  MUCHO  MAS. 

CONSULTENOS 

LO  QUE  BUSCA 

DIGIVIEW  V2.00 

Digitaliza  cualquier  imagen  to¬ 
mada  de  una  señal  de  vídeo 
compuesto  (Vídeo,  TV,  Cámara, 
etc.),  con  posibilidad  de  mane¬ 
jarla  posteriormente  con  cual¬ 
quier  software  de  gráficos. 
Digitaliza  directamente  en  color 
en  muy  pocos  segundos  o  en 
blanco  y  negro  en  5  segundos. 
Dispone  de  muchas  utilidades 
para  el  manejo  de  la  imagen. 

Precio:  54.000  pesetas. 


AMPLIACION  MEMORIA  2  MEGAS 

Ampliación  de  dos  megas  para  el 
Amiga  que  nos  permite  obtener  el 
mayor  jugo  a  la  multitarea.  Elimina  los 
tiempos  muertos  en  los  largos  procesos 
de  compilación.  También  se  puede  usar 
como  RAM-DRIVE.  Fácil  montaje  en 
el  bus  de  expansión  lateral  permitiendo 
una  nueva  expansión  libre  para  más 
memoria  o  futuras  ampliaciones  y 
añade  clave  de  acceso  para  el  manejo 
del  Amiga.  Precio:  159.000  Pts. 


FUTURE  SOUND  Y2.0  STEREO 

Digitalizador  de  sonido  que  permite:  grabar 
cualquier  instrumento  musical  para  usar  en 
otros  programas,  capturar  espectaculares  efec¬ 
tos  de  sonido  para  sus  propios  programas,  aña¬ 
dir  voz  real  a  sus  aplicaciones,  permite  llamadas 
desde  el  basic  ó  C.  Incluye  Caja-Interface  con 
potenciómetros,  micrófonos  y  cableado. 

'Precio:  39.000  Pts. 


EMPRESA  . 

NOMBRE  Y  APELLIDOS  . 

DIRECCION  . 

POBLACION  .  C.P . 

TELEFONO  . 

FORMA  DE  PAGO:  O  TALON  NOMINATIVO 
CU  CONTRA  REEMBOLSO 

DESEO  ENVIEN: 

□  GENLOCK  □  FUTURE  SOUND 

□  2  Mb.  RAM  □  SOFTWARE 

□  DIGIVIEW  2  . 


m  U  HCHOW 1 

C-16  /  PLUS-4 


ETIQUETA  DIRECCION  DESCRIPCION 


PHLDER 

02CC 

716 

KEYLEN 

02DD 

717 

KEYNXT 

02CE 

718 

STRSZ 

02CF 

719 

GETTYP 

02D0 

720 

STRPTR 

02D1 

721 

OLDBYT 

02D2 

722 

NEWBYT 

02D3 

723 

PHDER 

02D4 

724 

XSIZE 

02D5-02D6 

725-726 

YS1ZE 

02D7-02DS8 

727-728 

XSAVE 

02D9-02DA 

729-730 

STRADR 

02DB-02DC 

731-732 

BITTDX 

02DD 

733 

SAVSIZ 

002DE-02E1 

734-737 

CHRPAG 

02E4 

740 

BITCNT 

02E5 

741 

SCALEM 

02E6 

742 

WIDTH 

02E7 

743 

FILFLG 

02E8 

744 

BITMSK 

02E9 

745 

NUMCNT 

02EA 

746 

Puntero  de  posición 

Puntero  de  longitud 

Puntero  de  siguiente  longitud 

Longitud  de  cadena 

Modo  de  posición  o  sustitución 

Puntero  de  posición  en  la  cadena 

Viejo  byte  de  bit-map 

Nuevo  byte  de  bit-map 

Puntero  de  posición 

Tamaño  de  columna  (X) 

Número  de  línea  (Y) 

Almacenamiento  temporal  del 
tamaño  de  la  columna 
Puntero  de  cadena  para 
almacenamiento  de  figura 
Puntero  de  bit  para  byte  de 
cadena  para  figura 
Zonas  de  trabajo  temporales 
Byte  alto  de  carácter  ROM,  para 
CHAR 

Almacenamiento  temporal  para 
contador  de  instrucción  GSHAPE 
Puntero  para  escala  de  pantalla 
0=300*200  1  =  1024*1024 
Almacenamiento  temporal  para 
doble  tamaño 

Almacenamiento  temporal  para  relleno 
Almac.  temporal  para  máscara  de  BIT 
Almac.  temporal  para  valores  numéricos 


Este  mapa  de  memoria,  tan 
buscado  por  muchos  y 
disfrutado  por  muy  pocos,  por 
fin  aparece  publicado  en 
nuestras  páginas.  Ha  resultado 
un  poco  complicada  su 
localización,  pero  esperamos 
que  haya  merecido  la  pena. 
Creemos  que  constituye  un 
elemento  importantísimo  para 
los  programas  avanzados  del 
C-16.  Incluso  para  los  que 
ahora  se  inician  en  el  código 
máquina,  este  mapa  les 
ayudará. 
Atención  a  la  siguiente 
puntualización.  Los  ordenadores 
PLUS-4  y  C-16  tienen 
aproximadamente  el  mismo 
mapa  de  memoria.  Pero  no  son 
exactamente  iguales.  No  nos 
hacemos  responsables  de  esas 
diferencias.  Que  quede  claro  este 

punto. 

Esperamos  que  os  sea  de 
gran  utilidad. 
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tí 

En  el  mapa  de 
memoria  del 
C-16  y  PLUS-4 
se  pueden 
observar  varias 
posiciones  con  la 
descripción: 
desconocida. 
Esto  se  refiere  a 
los  datos  que 
nosotros 
poseemos.  No 
quiere  decir,  en 
ningún  caso, 
que  no  sirven 
para  nada. 

79 


ETIQUETA 

DIRECCION 

TRCFLG 

02EB 

747 

T3 

02EF 

748 

T4 

02ED-02EE 

749-750 

VTEMP3 

023F 

751 

VTEMP4 

02F0 

752 

VTEMP5 

02F1 

753 

ADRAY1 

02F2 

754-755 

ADRAY2 

02F4-02F5 

756-757 

FREE 

02F6-02FD 

758-765 

BNKVEC 

02FE-02FF 

766-767 

IERROR 

0300-0301 

768-769 

IMAIN 

0302-0303 

770-771 

DEJAVU 

0508 

1288 

LAT 

0509-0512 

1289-1298 

FAT 

051 3-05 1C 

1299-1308 

SAT 

05 1 D-0526 

1309-1318 

KEYD 

0527-0530 

1319-1328 

MEMSTR 

0530-0532 

1329-1330 

MSIZ 

0533-0534 

1331-1332 

TIMOUT 

0535 

1333 

FILEND 

0536 

1334 

CTALLY 

0537 

1355 

CBUFVA 

0538 

1336 

TPTR 

0539 

1337 

FLTYPE 

053A 

1338 

COLOR 

053  B 

1339 

FLASH 

053C 

1340 

FREE 

053D 

1341 

HIBASE 

053E 

1342 

XMAX 

053F 

1343 

RKPTFLG 

0540 

1344 

KOUNT 

0541 

1345 

DELAY 

0542 

1346 

SHFLAG 

0543 

1347 

LSTSHF 

0544 

1348 

KEYLOG 

0545-0546 

1349-1350 

MODE 

0547 

1351 

AUTDDN 

0548 

1352 

LINTMP 

0549 

1353 

RDLFLG 

054A 

1354 

FORMAT 

054B 

1355 

MSAL 

054C-054E 

1356-1358 

WRAP 

054F 

1359 

TMPC 

0550 

1360 

DIFF 

0551 

1361 

PC 

0552-0553 

1362-1363 

FLGS 

0554 

1364 

ACC 

0555 

1365 

XR 

0556 

1366 

YR 

0557 

1367 

SP 

0558 

1368 

INVL 

0559 

1369 

INVH 

055A 

1370 

CMPFLG 

055B 

1371 

BAD 

055C 

1372 

KYNDX 

055D 

1373-1374 

KEYBUF 

055F-0566 

1375-1382 

PKYBUF 

0567-05E6 

1383-1510 

KDATA 

05EF-05EB 

1511-1515 

PAT 

05EC-05EF 

1516-1519 

LNGJMP 

05F0-05F1 

1520-1521 

FETARG 

05F2 

1522 

FETXRG 

05F3 

1523 

FETSRG 

05F4 

1524 

AREAS 

05F5-065D 

1525-1629 

DESCRIPCION 

Contador  temporal  de  modo  de 
trazo  on/off 

Area  de  trabajo  del  directorio 
Area  de  trabajo  del  directorio 
Almacenamiento  temporal  para 
valores  gráficos 
Número  de  parámetros  para 
gráficos 

Parámetros  de  descripción 
absolute/ relativa 
Puntero  de  coma  flotante  para 
rutina  de  conversión  a  enteros 
Puntero  de  coma  flotante  para 
rutina  de  conversión  a  enteros 
Zona  libre 

Vector  para  funciones  de  cartucho 

Vector  de  error  indirecto 

Vector  de  lectura  o  ejecución  de 

línea  BASIC 

Puntero  de  reset 

Tabla  de  números  de  ficheros 

lógicos 

Tabla  numérica  de  periféricos 
primarios 

Tabla  de  direcciones  secundarias 
IRQ  buffer  de  teclado 
Principio  de  memoria 
Fin  de  memoria 
Flag  para  tiempo  de  IEEE 
Fin  de  fichero  0=no  I=sí 
Número  de  caracteres  en  el  buffer 
para  lectura/ escritura 
Número  total  de  caracteres 
válido  en  el  buffer  de  lectura 
Puntero  de  siguiente  carácter  en 
el  buffer 

Puntero  del  tipo  de  fichero  en 
cassette 

Byte  de  atributos 
Flag  de  caracteres  para  flash 
Zona  para  usuario 
Situación  de  final  de  pantalla 
Tamaño  del  buffer  de  teclado 
Flag  de  repetición  de  teclas 
Contador  de  repetición  de  teclas 
Retardo  de  repetición  de  teclas 
Byte  de  flag  para  SHIFT 
Ultimo  cambio  de  modo 
Vector  para  estructura  de  tabla 
del  teclado 

Flag  de  modo  texto  o  gráficos 

Flag  de  auto  scroll  0=activo 

Valores  de  trabajo  para  pantalla 

Valores  de  trabajo  para  pantalla 

Almacenamiento  para  monitor  fuera 

de  página  cero 

Desconocido 

Desconocido 

Desconocido 

Desconocido 

Registros  ¡Contador  de 

programa 

Registros  :  Registro  de  estado 
Registros  :Acumulador 
Registros  ¡Registro  X 
Registros  ¡Registro  Y 
Registros  ¡Puntero  de  Pila 
Desconocido 
Desconocido 

Usado  para  rutinas  del  monitor 
Entrada  errónea  de  cinta 
Indice  de  teclas  de  función 
Tabla  de  longitud  de  teclas  de 
función 

Area  de  almacenamiento  para 
teclas  de  función 
Usado  por  el  cartucho  de 
sintetización  de  voz 
Tabla  de  direcciones  físicas 
Dirección  de  salto 
Acumulador  de  salto 
Registro  de  salto  X 
Registro  de  estado  de  salto 
RAM  de  “banking” 


42/Commodore  World 


ETIQUETA 

DIRECCION 

DESCRIPCION 

ASPECH 

065E-06EB 

1630-1771 

RAM  para  cartucho  de  voz 

STKTOP 

06EC-07AF 

1772-1967 

Rutina  BASIC  para  stack 

WROUT 

07  BO 

1968 

Almacenamiento  temporal  para 
rutinas  de  cálculo 

TT1 

07B2 

1970 

Almacenamiento  temporal  para 
encabezamiento  de  escritura 

TT2 

07B3-07B4 

1971-1972 

Almacenamiento  temporal  para 
encabezamiento  de  fichero 

RDBITS 

07B5 

1973 

Indice  de  rutinas  READBYTE 

ERSP 

07B6 

1974 

Puntero  de  error  de  la  pila 

FPERRS 

07B7 

1975 

Número  de  error  en  primera  pasada 

DSAMP1 

07B8-07B9 

1976-1977 

Constante  de  tiempo 

DSAMP2 

07BA-07BB 

1978-1979 

Constante  de  tiempo 

ZCELL 

07BC-07BD 

1980-1981 

Constante  de  tiempo 

SRECOV 

07BE 

1982 

Puntero  de  pila  para  tecla  STOP 

DRECOV 

07BF 

1983 

Puntero  de  pila  para  tecla 
pulsada 

TRSAVE 

07C0-07C3 

1984-1987 

Parámetros  pasados  a  DBLOCK 

RDETMP 

07CA 

1988 

Almacenamiento  temporal  para 
RDBLOCK 

LDRSCN 

07C5 

1989 

Número  de  bloques  consecutivos 
en  cinta 

CDERRM 

07C6 

1990 

Número  de  errores  en  el  contador 
de  lectura 

VSAVE 

07C7 

1991 

Almacenamiento  temporal  del 
comando  VERIFY 

TI  PIPE 

07CB-07CB 

1992-1995 

Almacenamiento  temporal  de  TI 

ENEXT 

07CC 

1996 

Error  de  lectura 

UOUTQ 

07CD 

1997 

RS232  carácter  de  transmisión 

UOUATFG 

07CE 

1998 

RS232  flag  de  carácter  para 
transmisión  al  buffer  0=vacío 
I=lleno 

SOUTQ 

07CF 

1999 

RS232  carácter  del  sistema 

SOUNFG 

07DO 

2000 

RS232  flag  del  sistema  para 
transmisión  al  buffer  0=vacío 
l=lleno 

INQFPT 

07DI 

2001 

RS232  puntero  de  frente  de 
entrada 

INQRPT 

07D2 

2002 

RS232  puntero  de  entrada  de  datos 

INQCNT 

07D3 

2003 

RS232  número  de  caracteres  en 
cola  de  entrada 

ASTAT 

07  D4 

2004 

RS232  estado  temporal  de  la  CIA 
6551 

AINTMP 

07D5 

2005 

RS232  almacenamiento  temporal  de 
rutina  de  entrada 

ALSTOP 

07D6 

2006 

RS232  flag  de  pausa  local 

ARSTOP 

07D7 

2007 

RS232  flag  de  pausa  remota 

APRES 

07D8 

2008 

RS232  flag  que  indica  la 
presencia  de  la  CIA 

KLUDES 

07D9-073A 

2009-2020 

Rutina  de  carga  indirecta 

SCBOT 

07E5 

2021 

Margen  actual  del  principio  de 
pantalla 

SCLF 

07E7 

2023 

Margen  izquierdo  actual  de  pantalla 

SCRT 

0738 

2024 

Margen  derecho  actual  de  pantalla 

SCRDIS 

07E9 

2025 

Scroll  de  pantalla  activado 

0=activo 

INSFLG 

073A 

2026 

Auto-inserción  conectada  al 
$FF=activo 

LSTCHR 

07EB 

2027 

Ultimo  carácter  impreso 

LOGSCR 

07EC 

2028 

Atributos  de  color 

TCOLOR 

07ED 

2029 

Atributos  de  color 

BITABL 

07EE-07FI 

2030-2033 

Tabla  para  línea  de  pantalla 

SAREG 

07F2 

2034 

SYS  comando:  acumulador 

SXREG 

07F3 

2035 

SYS  comando:  registro  X 

SYREG 

07F4 

2136 

SYS  comando:  registro  Y 

SPREG 

07F5 

2037 

SYS  comando:  puntero  stack 

LSTX 

07F6 

2038 

Nueva  tecla  detectada 

STPDSB 

07F7 

2039 

Flag  de  CTRL-S  pausa 

RAMROM 

07F8 

2040 

Bit  de  monitor 

0=  R A M  l  =  ROM 

COLSW 

07F9 

2041 

Bit  de  color/ luminancia  0=RAM  1  — 

VMBMSK 

07FB 

2043 

VM  máscara  para  cambio  de 
pantalla 

LSEM 

07FC 

2044 

Motor  de  la  unidad  de  cassette 

PALCNT 

07FD 

2045 

PAL  contador  de  tiempos 

FREE 

07FE-07FF 

2046-2047 

Zona  de  usuario 

TEDATR 

0800-0BFF 

3072-4096 

Memoria  de  color 

TEDSCN 

0C00-0FFF 

3072-4095 

Memoria  de  pantalla 

BASBGN 

1000-FFFF 

4096-65535 

BASIC 

GRBASE 

2000-FFFF 

8192-65535 

BASIC  cuando  los  gráficos  están 
activados 

BMLUM 

1800-1BFF 

6144-7167 

Luminancia  o  bit-map  de  pantalla 

BMCOLOR 

1C00-1FFF 

7168-8191 

Color  del  bit-map  de  pantalla 

CHRBAS 

D000-D7FF 

53284-55393  ROM  de  caracteres 

u 

Algunas 
posiciones  de 
memoria  han 
sido  estudiadas 
y  aplicadas  por 
lectores  de 
nuestra  revista. 
Esperamos 
publicar  en 
breve  plazo  los 
resultados  de 
esos^  estudios. 
Será  la  mejor 
forma  de 
aprovechar  esta 
fuente  de 
conocimientos 
sobre  la 
máquina. 
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Para  salimos  un  poco 
de  tanto  “número  en 
coma  flotante  como 
hemos  visto  en  los 
últimos  capítulos,  este 
mes  vamos  a  echar 
un  vistazo  a  dos  diferentes  aspectos 
de  la  programación  en  codigo 
máquina:  los  bucles  y  el  stack.asi 
como  algunos  consejos  prácticos 
para  evitar  y  detectar  errores. 


($0400).  Después  se  incrementa  X 
^v=x+l),  se  compara  con  Vo  v 

más  uno)  y  si  es  distinto  (BNb)  se 
Mito  a  $0340,  donde  vuelve  a 
repetirse  el  proceso.  , 

Existe  un  sistema  mas  rápido,  co 
una  diferencia  de  microsegundos 
(que  a  la  larga  puede  ser  significativa), 
que  consiste  en  ejecutar  el  mismo 
bucle  pero  al  revés. 


Desde  que  comienzas  a  programar 
en  Basic,  aprendes  que  un  “bucle  ** 
una  zona  de  programa  que  se  repite 

varias  veces.  En  Basic  los  bucles  son 

normalmente  de  la  f°rm 
FOR  NEXT  aunque  pueden  hacerse 
también  con  GOTOs.  Los  bucles  se 
utilizan  para  repetir  varias  vec®s.“ 
tarea  que  es  siempre  la  misma 
(aunque  pueden  cambiar  ciertos 
valores)  y  evitarse  de  este^  modo 
tener  que  repetir  “a  mano  .tajas 
esas  instrucciones.  Asi,  por  ejemp  , 
vamos  a  ver  cómo  rellenaríamos  la 
fila  superior  de  la  pantalla  con 
estrellitas: 

FOR  1=1024  TO  1063:  PO- 
KEI,42:NEXT 

En  código  máquina  el  equivalente 
es  más  o  menos  así: 

P133C  A9  2 A  LDA  #«2A 

’  ’,033E  A2  00  LDX  #*00 

0340  9D  00  04  STA  «0400 , X 
"  * 0343  E8  INX 

".',0344  E0  28  CPX  #*28 
.,0346  DO  F8  BNE  *0340 
. ,0348  60  RTS 

En  primer  lugar  se  carga  el 
acumulador  con  $2A  (el  cod.go  de 
pantalla  del  asterisco),  se  pone  xa 
cero  y  utilizando  la  instrucción 
STA  X  se  “pokea”  el  carácter  en  la 
primera  posición  de  la  pantalla 


. A0349  A9  2A  LDA  #*2A 

"  A034D  9D  0?0  «4  ££  *8400,  X 

:JK  3  ™  K  *o34D 

.  A0353  60  RTS 

Como  verás,  nos  hemos  ahorrado 
la  instrucción  CPX  de  la  rutina 
anterior.  Como  el  ultimo  valor  a 
“pokear”  es  el  50400  +  JL™ 
siguiente  (en  decremento)  es  $0400 

_  1-  podemos  detector  el  i 

($FF)  mediante  el  flag  de  negativo 
N  y  la  instrucción  BPL  (saltar  si  es 
positivo).  Estos  bytes  de  ahorro  son 
la  razón  por  la  que  aparentemente 
todas  las  rutinas  de  c.m.  cuentan  al 
revés”,  lo  que  suele  sorprender 
mucho  a  los  principiantes.  Por 
desgracia,  este  sistema  sólo  funciona 
cuando  el  valor  inicial  de  X  es 
positivo,  es  decir,  si  esto  entre  $00  y 
$7F  pues  de  lo  contrario  el  flag  JN 
se  dispararía  en  la  primera  pasada. 

En  estos  ejemplos  hemos  utilizado 
el  índice  X  como  contador,  pero 
podíamos  haber  hecho  lo  mismo  con 
el  Y.  De  hecho,  si  queremos 
“anidar”  dos  bucles,  como  se  suele 
decir,  tendremos  que  utilizar  ambos 
registros: 


Este  es  el  típico  bucle :  de 
retardo”  que  en  Basic  seria  un  tUK 
T=1  TO  1000;  NEXT.  El  primer 
BNE  bifurca  si  V  no  es  cero  y  e 
segundo  si  X  no  lo  es.  Este  ultimo 
BNE  podría  apuntar  indistintamente 
al  LDY  o  al  DEY  pues  en  ambos 

casos  Y  es  cero.  Tal  y  como  esta  no 

retarda  demasiado,  pues  aunque 
cuenta  de  0  a  20.000  necesita  menos 
de  9  centésimas  para  ello.  Incremen¬ 
tando  el  valor  inicial  de  X(el 
máximo  sería  $FF  o  mcluso  $00)  e 
consigue  que  tarde  algo  mas.  Tara 
conseguir  retardos  mayores  hay  dos 
soluciones:  una,  incluir  unos  cuantos 
NOPs  entre  el  DEY  y  el  BNE,  para 
perder  unos  microsegundos  en  cada 
pasada...  con  3  NOPs,  por  ejemplo 
to  velocidad  disminuye  a  algo  mas 
de  la  mitad,  pero  esto  es  ya  una 
cuestión  “experimental  .  La i  otra 
solución  es  enlazar  mas  bucles, 
como  Ja  no  nos  quedan  registros 
tino  X/Y  tendremos  que  utilizar 
posiciones  de  memoria  como 
“variables  temporales  ,  de  ia 
siguiente  manera: 


.  , 033C 
.  ,  033E 
.  ,0340 
.  ,0342 
. ,0344 
- ,0346 
. ,0348 
. ,034A 
. , 034C 
,  034E 


.  ,0350 
.  ,0352 


A9  10 
85  FB 
A9  00 
85  FC 
85  FD 
C6  FD 
D0  FC 
C6  FC 
D0  F8 
C6  FB 
D0  F4 
60 


LDA  #*10 
STA  *FB 
LDA  #*00 
STA  *FC 
STA  *FD 
DEC  *FD 
BNE  «0346 
DEC  *FC 
BNE  «0346 
DEC  «FB 
BNE  «0346 
RTS 


.  , 033C  A2  50 
.  , 033E  A0  00 
.,0340  88 
.  ,0341  D0  FD 
.  ,0343  CA 
.  ,0344  D0  F8 
. ,0346  60 


LDX  #«50 
LDY  #«00 
DEY 

BNE  «0340 
DEX 

BNE  «033E 
RTS 


Este  sistema  te  permite  utilizar 
cualquier  número  de  bucles,  y  es  uno 
de  los  que  más  se  utilizan,  pues 
normalmente  los  registros  X/  Y 
están  ocupados  por  otros  valores  y 
no  pueden  utilizarse.  Las  posiciones 
i;FB/$FC/$FD  actúan  como  varia¬ 
bles  y  hacen  que  el  bucle  se  ejecute 
„S  de  un  millón  de  .«es,  « 

9  segundos.  Modificando  el  LUA 
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$FB 

$FD 

$02 


10  SYS700 

11  .OPT  00 

12  ? 

13  *=  828 

14  5 

15  INICIO  * 

16  FINAL 

17  COPIA 

18  ; 

19  LDY  #0 

21  LOOP  LDA  (INICIO), Y 

22  i  STA  (COPIA) , Y 

23  * 

24  INC  INICIO 

25  BNE  SI6UE1 

26  INC  INIC10+1 

oo  SIGUE1  INC  COPIA 
2®  ,  BNE  SI6UE2. 

30  s 

31 


CMNl—  wi*ww - 

INC  COPIA+1 


32  SIGUE2  LDA  ^ÍCIO 
CMP  FINAL 
BNE  LOOP 
LDA  I NIC 10+1 
CMP  FINAL+1 
BNE  LOOP 


33 


34  : 

35  s 

36  i 

37  * 

38  s 

39  RTS 

40  -END 

41 


VECTORES 


Y=0 

a=valor 

COPIAR  VALOR 

inic=inic+i 
.  FIN  PAGINA 
\  BYTE  ALTO+1 

-  COPI A=CQPI A+l 
\  FIN  PAGINA 
;  BYTE  ALTO+1 

;  COMPROBAR 
-  BYTE  BAJO 
NO ,  SEGU I R 
COMPROBAR 
BYTE  ALTO 
NO,  SEGUIR 

¡  FIN 


£  REM  PROGRAMA  PARA  COPIAR  zonas 
43  REM  DE  MEMORIA 

45  ÍnPUVINICIO, FINABA, B 

r7  ss-s- 

I3,  P0KE2531b— INT  (B/256)  *25Z> 

“  P0K^C-INT^C/256)*256 

52  P0KE3 ,C/256 

53  : 

54  SYS828 


Listado  6 


del  principio  puede  aumentarse  o 
disminuirse  la  velocidad,  asi  como 
añadiendo  más  bucles.  . 

Vamos  a  ver  un  ejemplo  practico, 
cómo  copiar  una  zona  de  memoria 
en  otra.  En  este  ejemplo,  se  copia  la 
pantalla  en  $CCOO: 

«-T-rr  A0  00  LDY  #*0® 
-’®33E  b9  00  04  LDA  *0400, Y 
•’51«  99  00  CC  STA  *CC00,Y 

B9  00  05  LDA  $0500, Y 

99  00  CD  STA  *CD00,Y 

■ ’StL  B9  00  06  LDA  *0600 , Y 

■  99  00  CE  STA  *CE00,Y 

a»  00  07  LDA  *0700, Y 

;;0033553  99  S  CF  STA  *CF00,Y 

‘.’,0357  D0  E5  BNE  *033E 
.,0359  60  RTS 


sirve  para  transferir  las  páginas  $04 
a  $07  a  las  posiciones 
$CC00 — $CFFF.  Si  quisieras 
realizar  la  operación  inversa  o  bien 
transferir  también  la  memoria  de 
color  bastaría  con  que  añadieras  mas 
LDAs  y  STAs  dentro  del  bucle.  Esto 
de  mover  la  pantalla  y  luego  recupe¬ 
rarla  es  muy  útil  para  la  presentación 
en  pantalla  de  ventanas  o  menus.  ti 
único  inconveniente  es  que  solo 
puedes  transferir  páginas  enteras  (de 
hecho,  a  partir  de  $07E8  ya  no  hay 
pantalla);  para  evitarlo  hay  que 
utilizar  una  rutina  como  la  del 
listado  6. 

Al  empezar,  $FB/$FC  indican  e 
principio  de  la  zona,  $FD/$FE  el 
r* _ i  „  cm  /<cnT  la  nueva  dirección 


inicial.  El  pequeño  programa  Basic 
ilustra  cómo  debe  inicializarse  la 
rutina.  En  este  caso  no  se  utilizan 
INXs  o  INYs,  sino  que  directamente 
se  incrementa  el  valor  del  vector 
inicial  y  final  a  cada  paso  del  bucle. 

El  registro  Y,  utilizado  en  el 
indexado,  ha  de  estar  siempre  a  0. 

Esta  rutina  tiene  también  un  par 
de  pequeños  inconvenientes;  primero, 
las  direcciones  iniciales  de  origen  y 
destino  se  pierden  Esto  se  puede 
arreciar  guardando  previamente 

estosSaloL  ene,  stackoenotro 

sitio  V  recuperándolos  al  final,  bi 
otro  problema  es  que  si  copias  de 
$1000  a  $3000,  por  ejemplo,  con  la 
posición  $2500  como  destino  se 
Aplancha”  todo  a  partir  de  $2500  y 
el  resultado  final  no  es  correcto. 
¿Solución?  contar  al  reves,  es  decir, 
empezando  a  copiar  desde  el  final 
hacia  el  principio.  En  ese  caso  habría 

que  modificarla  rutina  para  que  en 

$02/$03  se  pusiera  la  nueva 

dirección  final  y  “  Por 

comparara  con  $bB/3>F^.  fui 
desgracia,  el  problema  no  queda 
resuelto  tampoco,  sino  que  el  se 
“invierte”;  al  copiar  de  $1000  a 
$3000  en  $1500  se  plancharían  las 

posiciones  $1000-$1500  habría  que 

hacer  una  rutina  inteligente  que 
supiera  cuál  de  los  dos  sistemas 
utilizar  según  las  direcciones  iniciales 
y  finales  de  ambas  zonas.  En 
|  realidad,  no  es  demasiado  comphca- 

Hasta  ahora  hemos  visto  bucles  en 
los  que  el  incremento  era  siempre 
+1  o  _i.  Puedes  utilizar  incrementos 
j  _i_2  +3  etc.,  poniendo  varios 
ÍNXs  ’  INYs,  DEXs  o  DEYs. 
También  puedes  hacer  incrementos 
de  10,  20  o  más  sumando  este  valor 
al  vector  en  cada  pasada.  Este 
ejemplo  traza  una  línea  vert'cal  *** 
pantalla  (con  incrementos  de  40  en 
el  vector) 


. , 033C  A9  00 
. ,033E  85  FB 
. ,0340  A9  04 
.,0342  85  FC 
. ,0344  A2  18 
. ,0346  A0  00 
. ,0348  A9  A0 
. , 034A  91  FB 
. ,034C  18 
. , 034D  A5  FB 
. ,034F  69  28 
.,0351  85  FB 
.,0353  90  02 
.,0355  E6  FC 
.,0357  CA 
.,0358  10  EE 
. , 035A  60 


LDA  #$0O 
STA  $FB 
LDA  #$04 
STA  $FC 
LDX  #$18 
LDY  #$00 
LDA  #$A0 
STA  ($FB),Y 
CLC 

LDA  $FB 
ADC  #$28 
STA  $FB 
BCC  $0357 
INC  $FC 
DEX 

BPL  $0348 
RTS 
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fe 


fe 


$FB/$FC  es  el  vector  que  apunta 
a  la  posición  de  memoria  donde  va 
a  colocarse  el  carácter  (un  espacio 
inverso,  SAO).  El  índice  X  se  utiliza 
sólo  para  contar,  y  no  se  utiliza  para 
nada  más.  Es  importante  no 
olvidarse  el  CLC  antes  de  sumar  40 
(ADC),  tener  en  cuenta  que  se 
puede  saltar  de  página,  para  lo  que 
están  elBCCyel  INC  $FC  y  poner 
el  registro  Y  a  cero. 

Cómo  evitar  los  errores 


fe 

fe 


Trabajar  con  bucles  puede  dar 
muchos  dolores  de  cabeza  si  no  se 
hacen  con  mucho  cuidado.  Vamos  a 
ver  los  fallos  más  comunes  que 

suelen  producirse: 

1.  Confundir  CMP  con  CPX  o 
CPY  En  el  ejemplo  del  listado  l,  si 
en  vez  de  CPX  pones  CMP  nunca 
saldrás  del  bucle,  pues  A  es  siempre 
$2A  y  lo  estarás  comparando  con 
$28  En  este  caso  el  síntoma  es  que 
el  ordenador  se  queda  colgado 
pero  puedes  recuperarlo  con 
STOP/RESTORE  sin  perder  nada 
de  lo  que  tienes  en  memoria. 

2  Utilizar  BPL  con  valores 
mayores  de  $80.  Esto  sucede  cuando 
“cuentas  hacia  atrás”  (ejemplo  del 
listado  2)  si  el  valor  inicial  del  índice 
X  o  Y  es  mayor  de  $80;  en  este  caso 
la  rutina  parece  funcionar  pero  solo 
en  realidad  sólo  hace  la  primera 

paS3.dUtilizar  BNE  en  vez  de  BPL. 
También  en  el  ejemplo  del  Estado  2. 

Si  pones  un  BNE  en  vez  de  BPL 
funcionará  todo  pero  no  se  copiara 
el  byte  de  $0400,  cuando  X  sea  cero 
4.  Equivocarse  en  el  salto  de 
bucie.  Si  no  ejecutas  el  salto  del 
bucle  al  lugar  correcto,  puede  que  la 
rutina  no  funcione  bien  o  se  quede 
“coleada”  sin  hacer  nada,  ror 
ejemplo,  si  en  el  ejemplo  del  listado 

3  saltas  a  S033E  o  $033C  en  vez  de 
a  $0340  los  registros  Y  y  a 
actualizan  sus  valores  iniciales  y 
nunca  llegan  a  cero.  Esto  suele 
suceder  muchas  veces  cuando 
relocalizas  una  rutina  de  este  tipo  a 
mano”  con  un  monitor  de  codigo 

máquina.  Es  especialmente  impor¬ 
tante  en  el  ejemplo  8,  donde  hay  que 
apuntar  concretamente  al  LUA 
#$A0,  pues  este  valor  se  moditica 

tras  cada  pasada. 

5  Olvidarse  del  cambio  de 
página”.  En  los  bucles  en  los  que  se 
modifica  el  vector  que  apunta  a  la 


dirección  que  nos  interesa  no  hay 
que  olvidarse  de  que  puede  producirse 
un  salto  de  página,  por  lo  que  hay 
que  incrementar  o  decrementar  e 
byte  alto  de  dicho  vector.  En  el 
ejemplo  6  lo  hacen  los  BNt 
SIGUE1/2.  Si  te  lo  dejas,  la  rutina 
se  queda  copiando  la  misma  pagina 
de  memoria  continuamente. 

6.  Dejarse  el  STA  después  de  un 
ADC  Es  muy  corriente  olvidarse  de 

actualizar  un)  (»»•*-“ 
después  de  un  ADC  (o  ) 
instrucción  ADC  deja  el  valor  de  la 
suma  en  el  acumulador  no  en  la 
memoria.  En  el  ejemplo  7  si  no 
haces  el  STA  $FB  de  $0351  nunca 
actualizarás  el  vector,  a  pesar  de  que 
el  bucle  se  ejecute  correctamen  e^ 
Ojo  también  con  el  CLC  antes  de 

SU  7  Comparar  mal.  Este  es  posible¬ 
mente  el  peor  de  todos  los  Probler"^: 
Si  en  el  ejemplo  7  te  equivocas  al 
comparar  INICIO  con  FINAL  (y 
comparas  con  otra  cosa)  o  bien  al 

principio  el  vector  INICIO  es  mayo 

nue  FINAL,  la  rutina  comenzara  a 

machacar  toda  la  meraona  a  su 

naso...  Y  es  muy  probable  que  e 
ordenador  se  quede  colgado  sin 

reiOtro  problema  a  tener  en  cuenta 
con  las  comparaciones  es  el  siguiente. 


u 

El  próximo  mes 
veremos  lo  rutina 
CHRGET,  uno  de  los 
más  impórtenles  del 
Basic. 
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,  ,033C 
.  , 033E 
.  ,0340 
.  ,0342 
.  ,0344 
.  ,0346 
.  ,0348 
. ,034 A 
. , 034C 
. , 034D 
. , 034F 
. ,0351 
. ,0353 
. ,0355 
. ,0357 
. ,0359 
.  ,035B 
.  ,  035D 
. , 035F 


A9  00 
85  FB 
A9  04 
85  FC 
A0  00 
A9  A0 
91  FB 
A5  FB 
18 

69  01 
85  FB 
90  02 
E6  FC 
A5  FB 
D0  ED 
A5  FC 
C9  05 
D0  E7 
60 


lda  #*00 

STA  *FB 
LDA  #*04 
STA  *FC 
LDY  #*00 
LDA  #*A0 
STA  <*FB> , Y 
LDA  *FB 
CLC 

ADC  #*01 
STA  *FB 
BCC  *0355 
INC  *FC 
LDA  *fb 
BNE  *0346 
LDA  *FC 
CMP  #*05 
BNE  *0346 
RTS 


Esta  rutina,  que  es  muy  parecida 
a  la  del  listado  7,  rellena  la  pantalla 
con  espacios  en  inverso  las  posiciones 
1024  a  1279.  No  se  utiliza  X  para 
llevar  la  cuenta,  sino  que  se 
comprueba  cuando  el  vector 
$FB/$FC  llega  a  $0500  (esto  se 
hace  en  $0355-$035D).  Si  cambias 
el  ADC  por  ADC  #$02  funciona 
bien,  rellenando  ^  carácter  s,  y  otro 
no  Pero  si  pones  ADC  #$03...  iya 
no'  funciona!  La  rutina  comienza  a 


escribir  en  la  pantalla,  y  no  parara 
hasta  colgar  el  ordenador  La  razón 
es  la  siguiente:  cuando  el  bucle  va  de 
uno  en  uno  los  últimos  valores  de 
en c  son  254  255  y  0  (el  0  es  lo  que 

$detecta  el  BNE  de  $0357).  Cuando 

va  de  dos  en  dos  estos  valores  son 
752  254  v  0.  Pero  si  va  de  tres  en 

fres  son  249,  252,  255  y.  2.  Nunca 

pasa  por  el  cero,  de  modo  que  el 
BNE  es  inútil.  De  hecho,  Hegaacero 
cuando  el  vector  apunta  a  S07UU, 
ñero  en  ese  caso  falla  la  comparación 
^eí  byte  alto  con  $05  ($035B)  y 
estamos  en  las  mismas.  Hay  que 
saber  exactamente  cuáles  van  a  ser 
los  últimos  valores  en  este  tipo  de 
bucles  de  incremento  variable  o  bien 
utilizar  instrucciones  BMI  y  «ta¬ 
para  hacer  una  especie  de  si  A  es 
mayor/menor  que”. 

Búsqueda  y  localización  de  errores 

Encontrar  errores  en  codigo 
máquina  es  mucho  más  difícil  que 
en  Basic,  pues  el  ordenador  nunca 
nos  dirá  “syntax  error  in...”  sino  que 
simplemente  no  funcionara,  o  lo  que 
es  peor,  el  ordenador  se  quedara 

C°Para  buscar  errores  uno  de  los 
sistemas  más  conocido  es  ir  dete¬ 
niendo  H  rutina  en  ¿«tintas  partes, 
colocando  instrucciones  lji 

fonces  compruebas  con  el  monitor  s, 

los  registros  tienen  los  valores 
correctos  y  si  cada  Poslclon  ^ 
memoria  contiene  lo  que  debe 
contener.  Con  esto  podrás  localizar 
la  mayoría  de  los  errores,  pero  no 
todos.  En  el  caso  de  los  bucles,  por 
ejemplo,  no  puedes  detenerlos  a  a 
mitad  y  ver  qué  sucede,  pues  solo 
verías  la  primera  pasada.  La 
solución  consiste  en  hacer  que  vayan 
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saliendo  por  pantalla  los  valores  que 
“actúen”  dentro  del  bucle.  Puedes 
hacerlo  con  instrucciones  como  S  l  A 
$0400  o  STX  $0401...  asi  podras  ver 
los  valores  de  los  vectores  y 
registros,  si  cambian,  si  no  detectan 
el  final  de  un  bucle...  más  o  menos 
te  podrás  hacer  un  idea  de  lo  que 
sucede . 

Algunos  monitores  tienen  un 
comando  “W”  (Walk)  o  Q 
(Quick  Trace)  para  simular  la 
eiecución  paso  a  paso  de  una  rutina. 

ln  general  están  bien,  pero  no  todos 

funcionan  al  100  por  ciento.  Un 
buen  programa  que  se.  puede  uttor 
para  hacer  este  “seguimiento  es  el 
“Simulador  6510”  que  fue  publicado 
en  el  especial  utilidades,  con 
puedes  probar  rutinas  paso  a  paso 
viendo  todo  lo  que  hace  cada 
instrucción. 


44 

Hay  varias 
instrucciones  que 
actúan  sobre  el 
stock:  PHA,  PÍA» 
PHP«  PLPi  etc—  son 
variadas  y  muy 
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que  hemos  visto  anteriormente  el 
contenido  del  acumulador  y  los 
registros  X  e  Y  se  modificaban  en  la 
ejecución  de  la  rutina.  Para  evitarlo 
suele  hacerse  algo  asi: 


El  Stack  o  Pila  del  procesadores 
una  zona  de  256  bytes  ($0100  a 
$01 FF)  que  se  utiliza  como  almacén 
temporal  Sirve  para  olvidarse  un 

poTde  tener  que  reservar  una  zona 

donde  almacenar  valores,  llevar  un 
contador  para  saber  cual  es  el  ultimo 
que  has  colocado,  etc.  En  el  65  0 
funciona  en  modo  LIFO  Lastln, 
First  Out)  es  decir,  que  el  primer 
valor  en  entrar  es  el  último  ' en  sah^ 

La  típica  analogía  es  la  de  un  ma 

de  cartas:  Vas  colocando  car  as 

(bvtes)  en  la  parte  superior,  las 

primeras  irán  quedando  progresiva- 
mente  abajo  según  anadas  mas^ 
Cuando  quieras  sacar  una,  sera  a 
última  que  hayas  puesto,  después  la 
penúltima  y  así  sucesivamente. 

H  Hav  varias  instrucciones  que 

StJSSáíSiííWM; 

P'mUfoT,  “>»—*») 

su  wrv e 

valores  de  los  flags  NZCIDV).  <rar 
¿Itimo  puede  modificarse  el  punteo 
aue  indica  el  último  valor  introducido 
mediante  TXS  y  TSX  que  hacen  que 
jEsea  transferido  a  dicho  puntero  o 

IfeSaTrXeí! 


.A033C  48 
.A033D  BA 
. A033E  48 
. A033F  98 
. A0340  48 
. A0341 
. A0342 
. A0343 
. A0344  68 
.A0345  A8 
. A0346  68 
. A0347  AA 
. A0348  68 
. A0349  60 


PHA 

TXA 

PHA 

TYA 

PHA 


RUTINA 


PLA 

TAV 

PLA 

TAX 

PLA 

RTS 


Como  ves,  se  guardan  A-X-Y  por 
este  orden.  Al  recuperarlos  con  la 
instrucción  PLA  debes  hacerlo  al 
revés-  Y-X-A.  Naturalmente,  esto 
sólo  guarda  tos  «to»  *£ 

también  =1  contenido  de 
EZ  posiciones  1.  memon. 
debes  hacer  lo  siguiente: 

-A033C  A5  FB  LOA  *FB 

:SfS- 

.A0341  48  PHA 

. A0342 

.A0343  ---  RUTINA 

. A0344 

. A034B  60  R1 

Mezclando  los  dos  sistemas 
nuedes  conseguir  rutinas  completa 

ser  ejecutadas  sin  que  modifiquen 
ningún  valor  importante.  Cuando 


hagas  un  programa  largo  «rás  que 
es  bueno  utilizar  este  sistema,  de  lo 
contrario  puede  suceder  que  llames  a 
una  rutina  y  al  volver  te  haya 
modificado  registros  o  posiciones 
que  utilices  en  algún  otro  sitio. 
También  es  muy  útil  en  rutinas  q 
se  ejecuten  por  interrupciones. 

Problemas  con  el  stack 

Los  típicos  problemas  que  se 
suelen  tener  al  utilizar  el  stack  son 
los  siguientes: 

1  No  poner  tantos  PLA  como 
PHA.  Si  colocas  más  PHAs .que 
PLAs,  el  stack  se  llenara  al  cabo  de 
un  tiempo  y  el  ordenador  se  quedara 

colgado  (o  saltará  como  si  lucieras 

STOP/RESTORE);  si  es  al  reves  la 
rutina  puede  “robar”  del  stack  algún 
valor  que  no  le  corresponda  (y  que 
sea  utilizado  por  el  Basic  o  el 
Kernal)  y  normalmente  el  ordenador 
también  se  bloqueara. 

2  El  stack  se  llena.  En  alguna 
rutinas  se  utiliza  el  stack  tanto  ^e 
puede  llegar  a  llenarse.  En  estelo 
el  ordenador  suele  hacer  u 
ctdp /RESTORE  o  quedarse  col- 
lldT  Para  evitarlo,  lleva  I»  enera, 
de  las  veces  que  jo  u.to  o  ^ 
consulta  cuántos  bytes  quedan  libres 
con  la  instrucción  4  =>  a. 

3  Equivocarse  en  el  orden 
lectura.q  Recuerda  que  “el  pnmer° 

que  entra  es  el  último  que  sale  .  S 

introduces  los  valores  1,  2,  3 
leerlos  obtendrás  3,  A  i- 


En  el  capítulo  del  mes  pasado 

había  un  pequeño  error  en  las 

CO[reeSPVicd20nTc-64:  el  segundo 
ejemplo  está  mal,  dado  que  de  soto 
de  $E000  a  $E37A  la  dirección  Vic- 
20  esla  dirección  C-64  menos  3;  de 
«F37B  a  $FFFF  son  todas  iguales. 
De  modo  Que  la  $E5B3  del  ejemplo 
U  «fsr4  en  el  Vic-20  (la  misma), 

So^EOsViel  C-64  sería  $E056 
^En  el  próximo  curunl' '  Vvv'j jj 

Basic)  y  cómo  se  pasan  parametros 
desde  Basic  a  c.m.  directamente,  en 
la  forma  SYS  dirección,  a,  , 
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EQUENAS  APLICACIONES 


*  4^  u 

.  y  i  ilA/** 


jnx  *  ^1  d*~M**f" 


Por  Alvaro  Ibáñez 
C-64,  unidad  de  disco 


Nada  más  ejecutar  el  programa  se  carga  la 
lista  de  teléfonos  desde  disco.  Si  es  la 
primera  vez  que  lo  utilizas  aparecerá  el 
mensaje  “Nueva  lista”  y  a  continuación  el 
menú.  Si  ya  has  creado  una  lista  se  irán 
cargando  las  fichas  una  por  una,  rápida¬ 
mente. 

En  el  menú  hay  siete  opciones  diferentes  a  las  que  se 
llega  introduciendo  el  número  correspondiente  y 
pulsando  “RETURN”.  Son  las  siguientes:. 

_ Añadir  nombres _ 

Con  esta  opción  puedes  introducir  nombres  y 
teléfonos,  uno  por  uno.  Debes  teclear  siempre  un 


nombre,  un  teléfono  y  si  quieres  un  pequeño 
comentario  que  también  será  almacenado.  No  puedes 
utilizar  comas,  puntos  y  comas  o  dos  puntos  al 
introducir  los  datos  o  aparecerá  un  error.  Cada  vez  que 
terminas  con  una  ficha  el  ordenador  pregunta 
“¿correcto  (s/n)?’\  Si  contestas  “s”  (pulsando 
RETURN  simplemente)  volverás  al  principio  y  podrás 
seguir  introduciendo  más  nombres.  Si  no,  se  borrará 
esa  ficha  y  tendrás  que  introducirla  de  nuevo.  Antes  de 
hacerte  esta  pregunta  el  ordenador  borrará  los 
caracteres  que  sobren  en  cada  campo:  el  máximo 
permitido  son  12,  10  y  13  para  el  nombre,  teléfono  y 
comentario  respectivamente. 

El  campo  “comentario”  puedes  utilizarlo  para  indicar 
la  dirección,  prefijos  (para  números  del  extranjero), 
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ftgenda 


telefónica 
<c>i987  b9  f»IB 

U  Añadir  nowbres 
y  Buscar  por  nonbre 

^  _  tpiefono 
y  Buscar  por  x 

Borrar  nowbres 

y  Grabar  lista 

13  Iwpriwir  lista 

ü  Fin  de  programa 

..  7\  9  1 

Tu  opción 


extensiones,  o  para  hacer  distinciones  entre  dos 
personas  que  se  llamen  igual. 

Buscar  por  nombre 

Con  esta  opción  puedes  buscar  el  teléfono  de  una  o 
varias  personas.  Teclea  el  nombre  (no  hace  falta 
ponerlo  entero)  y  el  ordenador  te  dará  la  lista  de  todos 
los  nombres  que  comiencen  por  la  cadena  que  tú  hayas 
indicado.  En  el  ejemplo  que  he  utilizado,  si  dieras  como 
nombre  “peter”  aparecerían  “peter  pan”  y  “peter 
parker”  en  la  lista.  Si  introduces  dos  comillas  (“”)  te 
saldrán  la  lista  completa. 

Buscar  por  teléfono 

Es  casi  igual  que  buscar  por  nombre,  sólo  que  lo  que 
se  busca  es  un  número  de  teléfono.  Aquí  tampoco  hace 
falta  el  número  completo,  con  lo  que  puedes  buscar 
varios  teléfonos  que  comiencen  por  los  mismos  dígitos: 
en  el  ejemplo,  buscando  “4”  aparecerían  “aaron”  y 
“peter  parker”.  Esto  puede  serte  útil  para  buscar  gente 
que  viva  en  la  misma  provincia,  indicando  el  prefijo. 

_ Borrar  nombres _ 

Con  la  opción  4  puedes  borrar  uno  o  varios  nombres 
de  la  lista,  del  mismo  modo  que  en  la  búsqueda.  Al  final 
aparecerá  el  número  de  nombres  que  se  han  borrado  de 
la  lista.  Si  quieres  borrar  toda  la  lista  es  más  práctico 
pulsar  STOP/ RESTORE  y  RUN  (debes  cambiar  de 
disco  si  quieres  que  la  lista  quede  en  blanco). 

Grabar  lista 


Cuando  tengas  tu  agenda  terminada,  puedes  grabarla 
en  disco  utilizando  esta  opción.  La  lista  se  grabará 
automáticamente  con  el  nombre  de  “TF.LST”  en  el 
disco.  Si  vuelves  a  grabar  otra  lista  en  ese  mismo  disco, 
perderás  la  anterior,  pero  no  del  todo.  Siempre  queda 
un  “backup”  o  copia  de  seguridad  llamado  “TF.OLD” 
que  puedes  utilizar  modificando  la  línea  485  o  bien 
renombrándolo  en  el  disco  para  que  se  llame 
“TF.LST”.  Ten  en  cuenta  que  cuando  grabes  por 


tercera  vez,  entonces  sí  que  perderás  el  primer  fichero. 
Puedes  cambiar  el  nombre  con  que  se  graba  y  se  lee  la 
lista  modificando  las  líneas  365-380  y  485.  Si  se  produce 
algún  error  de  grabación  el  ordenador  te  lo  advertirá 
antes  de  volver  al  menú. 

Imprimir  lista 


Puedes  obtener  una  salida  por  impresora  o  por 
pantalla  de  toda  la  lista  utilizando  esta  opción. 

_ Fin  de  programa _ 


Utiliza  esta  opción  para  salir  del  programa  y  volver 
al  Basic. 

En  caso  de  que  por  error  detuvieras  el  programa  con 
STOP,  teclea  CONT  o  GOTO30  para  llegar  al  menú  y 
poder  salvar  la  lista.  En  principio  el  programa  está 
diseñado  para  almacenar  1.000  fichas,  pero  puedes 
variar  este  valor  en  las  variables  de  la  línea  5.  Modificar 
el  programa  para  cambiarlo  de  formato,  adaptarlo  a 
cinta  o  a  otro  ordenador  es  muy  sencillo  y  lo  dejo  en 
tus  manos.  ¡Que  te  sea  útil!  ■ 


PROGRAMA i  AGENDA  LISTADO  1 

1  REM  AGENDA  TELEFONICA  C-64  V1.0  .165 

2  REM  (0  1987  BY  ALVARO  IBANEZ  .152 

3  REM  (0  1987  BY  COMMODORE  WORLD  .15 

4  s  . 236 

5  D I MA$ ( 1 000 ) , B$ ( 1 000 ) , C$ ( 1 000 )  .253 

10  POKE53280  f0i P0KE5328 1,0: GOSUB470  .164 
15  S*=" C 12SPC3 "  .239 

20  Y*=" CH0M3  C23CRSRD3 "  .20 

25  «  .1 

30  PRINT" CCLR3 C2CRSRD3  C4CRSRR3  C  YEL3  .30 

C  RVSON 3  C 1 8SPC 3  C  RVSOFF 3 " 

35  PR I NT " C  4CRSRR  3  C  YEL  3  C  RVSON  3  C 1 BSPC  .51 
3  CBLU3  C RVSOFF 3  C 2SPC 3 CWHT3  CSHIFTA3G 
ENDA" 

40  PR I NT " í 4CRSRR 3  C  YEL 3  L RVSON 3  CSHIF  .36 
TM3ENU  DE  OPCIONES  CBLU3  C RVSOFF 3" 

45  PR I NT " C  4CRSRR  3  C YEL  3  C  RVSON  3  C 1 8SPC  .69 
3  C  BLU  3  í  RVSOFF  3  C  2SPC 3  L WHT 3  TELEFON I C 
A" 

50  PR I NT " C  4CRSRR  3  í YEL  3  C  RVSON 3  C 1 8SPC  .230 
3 C BLU 3  C RVSOFF 3" 

55  PR I NT " C 5CRSRR  3  C  RVSON  3  C  BLU  3  C 1 8C0M  .27 
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MI  3 CRVS0FF3 C2BPC3 CWHT3 (C) 1907  BY  CS 

260  N*=LEFT*(N*,12)  .61 

H I FT A  3  C  SH I FT I  3  C SH I FTB 3 " 

265  T*=LEFT*(T*,10)  .76 

60  PR I NT " C  CRSRD 3 C  9SPC  3  C  RVSON  3  1  C  RVSO  .112 

270  C*=LEFT* ( C* , 1 3 )  .157 

FF3  CSHIFTA3NC CRSRL 3 C CRSRU 3  C COMMQ 3  C 

275  PRINT" CHOM3"SPC< 135) NSS* ¡PRINT:  .124 

CRSRD 3 ADIR  NOMBRES" 

PR I NTSPC < 1 5 ) T*S* : PR I NT  s  PR I NTSPC (15) 

65  PRINT" C CRSRD 3 C9SPC3  CRVSON32CRVSQ  .241 

C*S* 

FF3  C SH I FTB 3 USCAR  POR  NOMBRE" 

280  I NPUT " C  2CRSRD  3  CSHIFTC30RRECT0  .23 

70  PR I NT " C  CRSRD  3  C  9SPC  3  C  RVSON  3  3  C  RVSO  .224 

(S/N) C  2SPC  3  S  C  3CRSRL  3 " ; A$ : IFA$<>"S"T 

FF3  CSHI FTB 3 USCAR  POR  TELEFONO" 

HEN235 

75  PR I  NT  "  C  CRSRD  3  C  9SPC 3  C  RVSON  3  4  C  RVSO  . 1 69 

285  1  .6 

FF3  C SH I FTB 3 ORRAR  NOMBRES" 

290  FORI=lTON  .23 

80  PR I NT " C CRSRD  3  C  9SPC 3  C  RVSON  3  5  C  RVSO  . 1 96 

295  IFN$>=A$ ( I ) THENNEXT : 1=1—1  .232 

FF3  CSHIFTG3RABAR  LISTA" 

300  FORJ=N+lTOISTEP-l: AS ( J ) =A* (J-l )  .95 

85  PR I NT " C  CRSRD  3  C  9SPC  3  C  RVSON  3  6  C  RVSO  .213 

s  B*  ( J  )  =B*  ( J-l ) : CS ( J )  =CS  ( J-l )  :  NEXT 

FF3  CSHIFTI IMPRIMIR  LISTA" 

305  AS(I)=NS:BS(I)=TS:CS(I)=CS  .74 

90  PR I NT " C CRSRD  3  C  9SPC 3  C  RVSON  3  7  C  RVSO  . 1 54 

310  N=N+ 1 : G0T0235  .15 

FF3  CSHIFTF3 IN  DE  PROGRAMA" 

315  PRINT" CCLR3CCRSRD3  CWHT3  C RVSON 3  .150 

95  I NPUT " C  CRSRD  3  C 9SPC  3  C  SH I FTT  3 U  OPC  .187 

CSHI FTB 3 ORRAR  NOMBRES CC0MM7 3 " s  S=0 

ION  ( 1  —7 )  C  1 0SPC 3  C 9CRSRL 3  "  j  AS :  A=*V AL  ( 

320  I NPUT " C CRSRD 3 C2SPC 3 CSHIFTI 3 NTRO  .35 

A$) 

DUCE  NOMBRE" ; NS 

1 00  I FA< 1 ORA  >7THEN30  . 38 

325  FOR 1=1 TON  .58 

105  0NAG0T0235 , 185 ,210,315, 355 , 420 ,  .219 

330  I FNS<  >LEFTS ( A* ( I )  , LEN ( NS ) ) THENN  . 227 

400 

EXT : G0T0345 

110  «  .86 

335  PR I NT " C  CRSRD  3  C  RVSON  3 " T AB ( 1 ) AS ( I  .160 

115  PRINT" CCLR3CCOMM63CCOMMA3C12SHI  .39 

) TAB ( 14) BS ( I ) TAB (25) C* ( I ) í FORJ-ITON 

FT*3  CCOMMR3  C  1 0SH I FT*  3  C COMMR 3  C  13SHIF 

-1 

T*  3  C  COMMS  3 

340  A*(J)=A*(J  +  1)  :B$(J)=B^(J  +  1)  :  Clí  (  .13 

120  PRINT" CSHIFT-3 C3SPC3CSHIFTN30MB  .100 

J)=C*(J+1) : NEXT : N=N— 1 : S=S+1 s IFNTHEN 

RE C 3SPC 3  C SH I FT- 3  CSHIFTT  3ELEFONO  CS 

330 

HIFT-3  C SH I FTC 3 OMENT AR 1 0 C 2SPC 3  C SH I F 

342  A$(l>=""xB*(l)="":C*(l)="M¡N=l  .217 

T-3 

345  PR I NT " C CRSRD 3  CSHI FTT 3 OTAL  NOMB  .106 

125  PR  I  NT  "  C  COMMQ  3  C  1 2SH I  FT  *  3  C  SH  I  FT 4-  3  .79 

RES  BORRADOS: "S 

C  1 0SH I  FT  *  3  C  SH  I  FT  +  3  C  1 3SH I  FT  *  3  C  COMMW  3 

350  GOTO170  .137 

130  F0RT-1T021: PRINT" CSHIFT-3 C 12SPC  .14 

355  PR I NT " C CLR 3  C CRSRD 3  CWHT3  CRVSÜN3  .70 

3  CSHIFT-3  C 10SPC3  CSHIFT— 3  C 13SPC3  CSHI 

C  SH I FTG  3  RABANDO  LISTACCOMM73 " 

FT— 3 " i NEXT 

360  0PEN15,8, 15, " I "  .165 

135  PRINT" CCOMMZ  3  C 12SHIFT*3  CCQMME3  C  .187 

365  PRINT# 15 , "S0: TF. OLD"  .178 

1 0SH I FT*  3  C COMME  3  C 1 3SH I FT*  3  C  COMMX  3  C  C 

370  PR I NT #15," R0 : TF . OLD=TF . LST "  .221 

OMM7 3  C  HOM  3  C  3CRSRD 3 " ; *  L I NE=0 

375  PR I NT # 1 5  f " I "  .140 

140  RETURN  .198 

380  QPEN2 ,8,2," TF . LST , S , N "  .57 

145  PRINTTAB ( 1 ) A$ ( I ) TAB (14) B$ ( I ) TAB  .1 

385  GET #15,A,B$,C,D: I FATHENPR I NT " C C  .162 

(25)C*(I) i L I NE=L I NE+ 1 : I FL I NE< 1 9THEN 

RSRD3  CSHIFTE3RROR  GRABACION !": GOTO 

RETURN 

170 

150  PRINTYSSPC (6) " C RVSON 3  CSHIFTP3U  .200 

390  F0RI=1T0N:PRINT#2,A* (I) :PRINT#2  .69 

LSA  CSHIFTR3  CSHIFTE3  CSHI FTT 3  CSHIFTU 

,B*(I) :PRINT#2fC*(I) : NEXT: PRINT#2 , " 

3  CSHIFTR3  CSHIFTN3  PARA  SEGUIR  CRVSO 

END" 

FF3  " 

395  CL0SE2 : CLOSE 1 5 : G0T025  . 254 

155  GETA*: IFA$< >CHR* ( 13) THEN155  .87 

400  PRINT" CCLR3CCRSRD3  C WHT 3  C RVSON 3  .159 

160  GOSUB1 15: RETURN  .240 

CSHIFTF3 IN  DE  PROGRAMA CC0MM7 3 " 

165  PRINT Y$" CCRSRU3 " ;  .13 

405  I NPUT "C CRSRD 3  CSHIFTE3STAS  SEGU  .14 

170  PRINTSPC(45) " CRVSON3  CSHIFTP3UL  .110 

RO  (S/N) C3SPC3NC3CRSRL3"; A^ 

SA  UNA  TECLA  PARA  CSHIFTM3  CSHIFTE3  C 

410  IFA*<>"S"THEN25  .37 

SHIFTN3  CSHIFTU 3  CRVSOFF3 " 

415  END  . 162 

175  GETA*: IFA*=" "THEN175  .119 

420  I NPUT " C CLR 3  C CRSRD 3  CWHT3  CSHI FTP  .81 

180  G0T025  .192 

3 ANTALLA  0  IMPRESORA  (P/I)"5P$ 

185  PR I NT " C  CLR  3  C  CRSRD  3  C WHT3  C RVSON 3  .117 

425  PRINT: X=3: IFP*=" I "THENX=4  .48 

CSHI FTB 3 USCAR  POR  NOMBRE CC0MM7 3 " 

430  OPEN 1 , X : FOR I = 1 T ON  .81 

190  I NPUT " C  CRSRD  3  CSHIFT I 3NTRODUCE  .202 

435  PR I NT# 1 , " C  SH I FTN 3 OMBRE C 8SPC 3  C  SH  .60 

NOMBRE" ; L$ 

I FTT 3 ELEFONO C 4SPC 3  C SH I FTC 3 OMENTAR 1 0 

195  G0SUB115  .61 

440  PR  I  NT #  1  ,  " - .51 

200  FORI=lTON:  IFL*=LEFT*  <A*(I)  ,LEN(  .158 

M 

L*) ) THENGOSUB145 

445  FOR 1=1 TON  .178 

205  NEXT i G0T0165  .143 

450  PRINT#1  .LEFTSÍASÍD+S*,  14)  ;  .101 

210  PR 1 NT " C  CLR  3  C  CRSRD  3  C WHT3  C RVSON 3  .8 

455  PR I NT # 1 , LEFT % ( B$ ( I ) +S$ ,12);  .232 

CSHIFTE 3 USCAR  POR  NUMERO  DE  TELEFON 

460  PRINT#1 , LEFTS (C$ ( I ) +S^ ,13)  .149 

OCCOMM7  3" 

465  NEXT: CLOSE 1 : GOTO 170  .144 

215  I NF UT " C CRSRD 3  CSHIFT I  INTRODUCE  .73 

470  PRINTCHR* (14)  '  CCLR3  C CRSRD 3  CWHT  .31 

NUMERO" ) L* 

3  C  SH I FT A  3  GENDA  TELEFON I CA " 

220  G0SUB115  .86 

475  PR I NT " C CRSRD 3  C SH I FTL 3 E YENDO  LI  .188 

225  F0RI=1T0N: IFLS=LEFT*(B$(I) ,LEN(  .57 

STA...  ESPERA  UN  MOMENTO C CRSRD 3 " 

L*) ) THENGOSUB 1 45 

480  OPEN 15,8, 15," I": N= 1  .231 

230  NEXT : G0TQ165  .168 

485  0PEN2 , 8 , 2 , "TF. LST , S , R"  .122 

235  PRINT "C CLR 3 C CRSRD 3  CWHT3  C RVSON 3  .123 

490  I NPUT #15,A,B$,C,D: IF ATHENPR I NT "  .121 

C  SH I FT A  3  NAD I R  NOMBRES  C  C0MM7 3 " 

C  SH I FTN  3  UEVO  F I CHERO " : N=2 : GOTO505 

240  N$="":T*="":C$=""  .164 

495  INPUT#2,A*(N) ,BS(N) ,C*(N) : IFA^(  .0 

245  I NPUT "C CRSRD 3  C RVSON 3 CSHIFTN30M  .55 

N) =" END " THENA^ (N) =" " : GOTO505 

BRE  C  5SPC 3 : C  RVSOFF  3 " 5  N*  s I FN*= " " THEN2 

5 

500  N=N+1: PRINT"  C RVSON 3  C SH I FTL 3 EYE  .177 

NDO C  RVSOFF  3 " N- 1 : PR I NT " C CRSRU  3 " ; : GOT 

250  I NPUT " C  CRSRD 3  C  RVSON  3  C  SH I FTT  3 EL  .124 

0495 

EFONO C  3SPC 3 : C  RVSOFF  3 " ; T$ 

505  CL0SE2: PRINT# 15, "I" :N=N-1: CLOSE  .34 

255  I NPUT "C CRSRD 3  C  RVSON  3  C  SH I FTC  3  OM  .51 

ENTARIO  : C RVSOFF 3" 5 C* 

15: RETURN 
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COMMODORE  PC 
■RIFERICOS  Ipíó¿"oe*rn 

~TAAJ  A  O  C  |PcATALOG5- 


>•  PERIFERICOS  J^de  n°e 

SOFTWARE  I  r*TAL Q°^ 

HARDWARE  U 

Norfd  Wo*e/ia  IZ«  Te/  /?5  85  6tt  tSABADELL i 


AREVALO  MICROSISTEMAS,  S.L. 

Travesera  de  Alfonso  El  Batallador,  16  -  Pamplona  -  Tel.:  27  64  04 


*  VENTA 


*  REPARACION 


ORDENADORES  PERSONALES 


—  USX  -  SANYO 

—  MSX  -  Spectravídeo 

—  ZX  -  Spectrum  plus 

—  Commodore  64/128 


COMPATIBLES  PC 
COMPONENTES  ELECTRONICOS 
TODA  CLASE  ORDENADORES  PERSONALES 
TODA  CLASE  COMPA  TIBLES  PC 


<  C/  Córcega,  247 
Tel.:  (93)  237  39  94  -  218  56  04 
08036  BARCELONA 
Importador  exclusivo 

ROBOTIC  ARM 
para  Commodore-64  y  128 
DISTRIBUIDOR  OFICIAL 
COMMODORE 


•  ORDENADORES  PERSONALES 

•  ACCESORIOS  INFORMATICA 

•  COMPONENTES 
ELECTRONICOS 

•  TELECOMUNICACIONES 

Paseo  de  Gracia  126-130 
Tel.  237  II  82'  08008  BARCELONA 


INORMA 

Reparación  y 
mantenimiento 
de  ordenadores 


Dr.  Roux,  95  (bajos) 
Tel.  (93)  205  32  69 
08017  Barcelona 


JTTYvTYT 


Convierte  tu  ordenador  inglés 
en  un  ordenador  español 
mediante  este  cartucho. 

Solamente  £  75  (libras  esterlinas) 
incluyendo  envió  aéreo. 

Enviar  pedido  a: 

Premlink  Exports  -  5,  Fairholme  Gardens 

London  N.  3  -  T:  01-346  1044 


COMPUTERS.  S.  A 

Lápiz  óptico  Trojan  .  4.500  Ptas. 

Commodore  64  .  39.500  Ptas. 

Joystick  Quickshoot  II  .  1.695  Ptas. 

Joystick  Quickshoot  V  .  1.695  Ptas. 

Cassette  Compatible  Commodore  4.950  Ptas. 

A  vda.  de  la  Luz,  60 

Tel.:  302  60  40.  08001  Barcelona 


C  [IMPUTE  ñ  -  CE  M  TE  R 

UNICO  EN  ESPAÑA: 

Todo  tipo  de  repuestos  para  COMMO¬ 
DORE  y  manuales  de  reparación  en 
existencias. 

REPARACION  RAPIDA  A  PRECIOS 
RAZONABLES. 

Avda.  de  Andalucía,  17.  29002  Málaga 
Tels.:  (952)  33  27  26  35  10  07  Télex:  77480  caco-e 


ELECTROAFICION 

•  Ordenadores  de  gestión  PC 

•  Microordenadores 

•  Accesorios  informáticos 

•  Software  gestión  -  Juegos 

•  Radio  aficionados 

•  Comunicaciones 

C/  Villar roel,  104 

08011  Barcelona  -  Tels.:  253  76  00-09 


MAXI-MKRO 


¡SENSACIONAL  NOVEDAD! 

VIVE  TUS  JUEGOS  A  “TOPE”  CON 
NUESTRO  MAXI-AUDIO  PIDENOS 
FOLLETO  INFORMATIVO. 

¡ATENCION!  Tenemos  programas  y  juegos 
para  VIC-20,  C-16  y  C-64/ 128 
The  final  Cartridge.  Copiador  Cassette  a  Cassette. 
Servicio  Técnico  de  reparaciones 
C¡ Valencia,  571-entlo.  5?  08026 BARCELONA.  TI: (93) 232 48 36 


MONITOR  DESAJUSTADO  Y 
COMANDOS  DEL  M-BASIC 

He  montado  y  soldado  el  interruptor-adap¬ 
tador  de  80  columnas  para  el  C-128,  para 
conectarlo  a  un  monitor  de  vídeo  compuesto, 
y  no  funciona  bien.  Cuando  lo  conecto  se  ve 
la  palabra  READY  en  medio  de  la  pantalla. 
Y  desde  el  medio,  el  final  izquierdo  de  la 
pantalla  del  ordenador  va  a  parar  al  extremo 
derecho  de  abajo,  con  efecto  de  olas.  He 
intentado  sintonizar  el  monitor  (unos  torni¬ 
llos  que  hay  detrás)  pero  no  hay  manera,  las 
conexiones  están  bien  soldadas. 

En  el  M-BASIC  para  CP/M  128,  sabéis 
cuál  es  el  comando  para  borrar  la  pantalla,  y 
si  hay  alguna  diferencia  con  el  M-BASIC  de 
PC  (las  teclas  tienen  otros  nombres,  como 
van  los  cursores,  etc.)  Si  vosotros  no  lo 
sabéis,  ¿me  podéis  dar  nombre  y  teléfono  de  la 
casa  que  lo  comercializa? 

Tony  Rueda  Roselló 
Padilla,  216.  lg  -  4.a 

08013  Barcelona 

Respecto  a  las  extrañas  cosas  que  hace  tu 
monitor,  lo  mejor  que  se  te  puede  recomen¬ 
dar  es  que  te  dirijas  a  un  servicio  técnico.  Lo 
que  parece  evidente  es  que  tu  ordenador  está 
en  condiciones  normales  y  el  problema  es  del 
monitor.  Una  de  las  características  de  los 
monitores  es  el  conmutador  de  impedancia 
de  entrada,  algo  parecido  a  lo  que  ocurre  con 
los  altavoces  o  micrófonos.  El  símbolo  suele 
ser:  ohmios  altos  y/u  ohmios  bajos.  Si  tu 
monitor  posee  dicho  conmutador,  prueba  a 
cambiarlo.  En  caso  de  persistir  la  anomalía, 
dirígete  a  la  tienda  donde  compraste  el  moni¬ 
tor,  o  a  un  servicio  técnico. 

El  M-BASIC  es  un  lenguaje  del  que  han 
aparecido  numerosos  libros,  incluso  en  este 
país.  Puedes  informarte  en  cualquier  librería 
especializada.  Respecto  al  distribuidor  oficial, 
sentimos  informarte  que  desconocemos  si 
alguna  empresa  tiene  el  M-BASIC  para  el 
Commodore  (en  CP/M).  Pregunta  a  tu 
distribuidor  más  cercano  o  a  las  empresas  que 
se  anuncian  en  nuestra  revista.  Para  borrarr  la 
pantalla  puedes  utilizar  la  instrucción  CLS. 


TECLADO  DINAMICO  PARA 
UTILIZARLO  CON  CASSETTE 

¿Cómo  puedo  usar  ese  teclado  numérico 
tan  majo  del  n^  13,  pág.  68  y  que  también 
viene  en  el  Especial  Utilidades,  si  yo  sólo 
tengo  datassette,  en  mi  C-64?  Si  no  se 
pudiera  aprovechar  este,  decidme  cómo  hacer¬ 
me  con  uno,  bien  por  programa  o  por  hard¬ 
ware.  A  ver  si  me  podéis  dar  los  pokes 
clave  para  hacer  el  TECLADO  DINAMICO 
en  el  CBM  3032  de  mi  empresa,  en  otra  oca¬ 
sión  me  disteis  los  pokes  para  programar  del 
C-64  al  3032  y  funcionó  de  maravilla  lle¬ 
vando  y  trayendo  programas.  Os  estoy  pro¬ 
fundamente  agradecido.  Os  pido  que  me 
recomendéis  el  TRATAMIENTO  DE  TEX¬ 
TOS,  que  tenga  mejor  relación  calidad/ pre¬ 
cio  para  cinta,  y  si  hay  alguno  que  lleve 
incluido  un  turbo  para  archivos  ¿el  RUNS- 
CRIPT  vale  para  cinta? 

— 52/ Commodore  World - 


Jesús  Plaza  García 
Chile,  146,  lQ 
Coslada  (Madrid) 

El  programa  TECLADO  DINAMICO 
puede  ser  utilizado  con  un  cassette,  haciendo 
unos  simples  POKE’s.  Las  posiciones  de 
memoria  178  y  179  en  decimal,  contienen  el 
byte  bajo  y  byte  alto  del  inicio  del  buffer  de 
cassette.  Cambiando  los  valores  de  estas 
posiciones  según  nuestras  necesidades,  se 
puede  variar  la  posición  que  los  programas 
de  cinta  utilizan  como  buffer. 

Si  haces  por  ejemplo  un  POKE  179,4  antes 
de  utilizar  el  cassette,  no  tendrás  problemas 
de  interferencias.  El  buffer  de  cassette  estará 
colocado  en  la  memoria  de  pantalla,  y  aun¬ 
que  se  llene  esta  de  “basura  ”,  al  finalizar  la 
carga  del  programa  se  puede  limpiar  la 
pantalla  y  seguir  trabajando  normalmente. 

Como  procesador  de  textos  superpotente, 
te  recomiendo  el  RUNSCRIPT.  Puedes  uti¬ 
lizarlo  en  cinta  con  las  modificaciones  apare¬ 
cidas  en  el  número  35,  página  49.  Podrás 
comprobar  que  funciona  perfectamente. 

Respecto  a  la  adaptación  del  TECLADO 
DINAMICO  para  el  3032,  sentimos  no 
poder  ayudarte  en  esta  ocasión.  Las  posicio¬ 
nes  de  memoria  que  necesitamos  en  este  caso 
concreto,  no  están  a  nuestra  disposición. 


SPRITES  EN  ACCION  Y 
SCROLL  FINO 

En  el  número  33  (enero  de  1987)  de  su 
revista  COMMODORE  WORLD  he  encon¬ 
trado  su  programa  SPRITES  EN  ACCION 
y  al  hacer  uso  de  las  instrucciones  LOAD, 
SAVE  y  VERIFY  he  visto  que  no  podía, 
mientras  que  todo  el  programa  funcionaba 
perfectamente.  Me  gustaría  que  me  dijeran 
por  qué  ocurre  y  el  remedio  contra  ello. 

También  desearía  que  me  dijeran,  si  hay 
algún  libro,  alguna  aplicación  o  algún  pro¬ 
grama  en  el  que  me  explique  o  pueda  hacer 
uso  del  scroll.  En  caso  de  que  lo  conozcan, 
me  gustaría  que  me  indicase  las  referencias 
necesarias  para  conseguirlo.  El  scroll  al  que 
me  refiero  es  fino,  no  carácter  a  carácter. 

Andrés  Vallés  Botella. 

Te  remitimos  a  la  respuesta  dada  a  esta 
misma  pregunta  en  el  número  38,  página  §5. 
No  se  puede  utilizar  el  SPRITE  BASIC  con 
el  datassette. 

El  programa  más  recomendable  para  utili¬ 
zar  los  movimientos  de  pantalla  con  scroll 
fino,  es  el  BASIC  LIGHTNING.  Es  un  pro¬ 
grama  (lenguaje  BASIC  ampliadísimo)  que 
fue  comercializado  por  SAKATI.  Las  carac¬ 
terísticas  de  este  lenguaje  para  trabajar  con 
gráficos  son  muy  potentes.  Se  pueden  hacer 
todo  tipo  de  croll  y  con  varios  “pasos”,  desde 
ocho  puntos  hasta  uno  por  uno. 


PROBLEMA  CON  LAS  DATAS 
DE  UN  ANTIQUISIMO 
PROGRAMA 

Me  dirijo  a  vosotros  para  solicitaros  que 
me  facilitéis  o  publiquéis  en  la  revista,  la 


suma  de  control  del  programa  “COMUNI¬ 
DADES”  que  apareció  en  el  especial  100 
programas,  publicado  ya  hace  bastantes 
meses,  pues  después  de  haberlo  comprobado 
y  recomprobado,  después  de  introducir  el 
nombre  de  los  jugadores,  me  da  Error  de 
Sintax  en  la  línea  2870,  en  la  cual  no  encuen¬ 
tro  ningún  error. 

Joaquín  Soló  Peña 
Xifre,  79 
08026  Barcelona 


El  problema  que  planteas  es  relativamente 
sencillo  de  resolver.  Aunque  no  podemos 
facilitarte  la  suma  de  control  del  programa 
COMUNIDADES  debido  a  su  antigüedad, 
te  daremos  otras  pistas  para  que  resuelvas  el 
tema  satisfactoriamente.  En  primer  lugar 
debes  comprobar  concienzudamente  las 
datas.  Pon  especial  atención  en  los  números 
que  aparecen  al  final  de  la  línea  2860,  ya  que 
esos  números  serán  leídos  con  variables 
numéricas.  Si  posteriormente  el  programa 
intenta  leer  la  primera  data  de  la  línea  2870 
como  un  número,  lógicamente  aparecerá  el 
Error  de  Sintaxis.  Esto  no  quiere  decir  que  la 
línea  en  que  da  el  error  está  mal,  es  que  es  en 
ese  punto  donde  lo  detecta  la  lectura  de 
datas. 

Creo  que  con  esta  explicación  podrás 
resolver  tu  problema  y  otros  semejantes  en  el 
futuro. 


PROTECCIONES  EN  LOS 
PROGRAMAS 

Os  escribo  esta  carta  después  de  sesudas 
reflexiones  para  haceros  una  pregunta  senci¬ 
lla  pero  difícil: 

¿Para  qué  valen  realmente  las  protecciones 
en  los  programas? 

Luis  Iglesias  Guitián 
Apartado  de  Correos,  185 
15080  La  Coruña 


Esta  carta  era  un  compendio  de  reflexiones 
y  consejos  por  parte  de  su  autor,  nosotros  la 
hemos  reducido  en  atención  al  interés  del 
resto  de  los  lectores.  Además,  este  tema  ya 
está  muy...  gastado. 

Cuando  los  programas  se  protegen  es  por¬ 
que  algo  influye  en  la  seguridad  y  garantía  de 
su  comercialización  seria.  Aparte  de  ponér¬ 
selo  un  poco  más  difícil  a  los  “copiadores- 
almacenistas”  de  programas  ajenos. 

Creo  que  el  tema  no  merece  más  comenta¬ 
rio.  Las  ideas  de  esta  redacción  siguen  siendo 
las  mismas  acerca  de  estos  temas. 


VARIOS  SOBRE  GRAFICOS 

Tengo  un  C-64  desde  hace  unos  2  años 
aproximadamente  y  me  gustaría  que  me 
contestaran  a  unas  dudas  que  tengo: 

1Q. — Si  después  de  cargar  un  programa  en 
código  máquina  realizo  un  reset  ¿De  qué 
manera  puedo  saber  la  dirección  inicial  y 
final  del  programa? 

2Q. — Los  gráficos  de  fondo  que  aparecen 


en  programas  como  Green  Beret,  Uri- 
dium,  Paperboy,  Rambo,  etc.  ¿Son 
pantallas  de  alta  resolución  o 
gráficos  definidos?  ¿Y  para  las 
pantallas  de  carga  de  algunos 
juegos,  como  en  Dragon’s 
m  Lair  o  Dragon’s  Lair  II?.  Y 

u  f  \  Por  último  una  sugerencia, 
■fe  f  J  ¿sería  posible  que  publica- 
f  '  'Wf  sen  un  artículo  sobre  grá- 
Jf  t  icos?,  ¿de  cómo  hacer  sprites 
Jfk  en  código  máquina?  las  pan- 
f  \  tallas  de  cargas  de  juegos,  y 
f  \  algunas  rutinas  de  interés 
T  \  \  que  ustedes  conozcan. 

\  Feo.  Javier  Morante  López 

\  Pompeu  Fabra,  65, 

\  Atico  Ia 

tk  Sta.  Coloma  de 

f 1  Gramanet 

y  Barcelona 

^JT  Los  punteros  que  indican 

yi  la  carga  de  un  programa 
i  desde  cinta  se  encuentran  en  el 
Jr  1  buffer  del  cassette.  Esto  funciona 
i  para  programa  BASIC  junto 
M  con  los  punteros  inicio  y  final 
^  de  programa.  Pero  cuando  se 
V  trata  de  código  máquina,  sólo 
1  se  puede  hacer  referencia  al 
i  buffer  de  cassette.  Hasta  aquí 
|  los  lugares  donde  se  puede 
J  buscar.  Al  hacer  un  RESET, 
el  buffer  de  cassette  se  borra, 
al  igual  que  los  punteros  de 
BASIC.  Para  descubrir  las 
ffjr  posiciones  que  ha  ocupado  un 

jjH  programa,  llena  primero  la  me- 

moría  con  ceros.  Después  de  esto, 
1  carga  el  programa  y  haz  RESET. 
1  Entonces  comienza  a  buscar  por 
Jk  la  memoria  datos  diferentes  de 
/:  yl  cero.  No  es  muy  sutil,  pero 
J  funciona.  La  tarea  que  te  espera 
'  W  es  lenta,  eso  sí. 

Te  recomiendo  que  busques  un 
monitor  de  código  máquina  que 
J  tenga  implementada  la  función  de 
J  búsqueda  de  principio  y  final  de 
programa.  Por  ejemplo  el  ZOOM, 
J  tiene  un  comando  específico  que  te 
C  indica  las  posiciones  en  que  un 
J  programa  se  cargará,  desde  cinta  o 
/  disco.  Es  realmente  muy  útil  para 
f  relocalizar  rutinas  o  programas  com¬ 
pletos. 

En  cuanto  a  la  segunda  pregunta,  la 
gran  mayoría  de  los  juegos  utilizan 
pantallas  hechas  con  gráficos  definidos, 
no  pantallas  de  alta  resolución.  ¿Por 
qué?  simplemente  porque  no  puedes 
hacer  scroll  fino  de  una  pantalla  hi-res. 
Juegos  como  Green  Beret,  Uridium  o 
Rambo  utilizan  caracteres  (eso  sí,  un 
montón)  para  el  dibujo  de  la  pantalla  de 
fondo.  Otros  juegos  en  los  que  las 
pantallas  son  estáticas  (aunque  no  todos), 
como  Dragón’s  Lair  utilizan  pantallas  de 
alta  resolución.  En  realidad  es  mucho  más 
conveniente  utilizar  pantallas  de  presenta¬ 
ción  suelen  estar  hechas  en  alta  resolución, 


generalmente  utilizando  algún  programa 
comercial  de  dibujo  (Koala  Pad,  Doodle,  Art 
Studio)  que  permiten  grabar  a  disco  o  cinta 
esas  pantallas  para  luego  utilizarlas  en  tus 
propios  programas.  Como  artículos  sobre 
gráficos  y  sprites  podemos  recomendarte  los 
siguientes:  La  serie  sobre  Sprites  (números 
16,  17  y  18).  Artista  con  joystick  (especial  100 
programas  o  disco  aplicaciones).  Dibujos 
Dinámicos  (número  23)  y  Letras  en  movi¬ 
miento  (número  30). 


GRAFICOS  Y  CARACTERES 
EN  EL  C-128 

l.9.  Para  un  Commodore  128  en  modo  128. 
¿Puede  copiarse  el  juego  de  caracteres  en  la 
RAM  en  una  zona  distinta  a  la  destinada  a 
los  gráficos  de  alta  resolución?  Si  es  posible, 
¿dónde  y  cómo? 

2.Q.  Para  el  mismo  caso  anterior  (C- 1 28). 
¿Puede  disponerse  de  más  de  una  página  de 
gráficos  de  alta  resolución  al  mismo  tiempo? 
¿Dónde  y  cómo?  O,  en  todo  caso,  ¿se  puede 
trasladar  la  página  de  grávidos  a  otro  lugar 
que  no  sea  el  que  comienza  en  8.192? 

Gonzalo  Vizcaíno  Monty 
Urbanización  las  Norias,  2,  3Q  D 
Majadahonda 
Madrid 

El  tema  de  los  juegos  de  caracteres  y  los 
gráficos  en  alta  resolución  es  un  poco  com¬ 
plejo,  pero  la  localización  de  los  mismos  en 
la  memoria  se  basa  en  un  principio  bastante 
sencillo.  El  chip  de  vídeo  sólo  puede  direc- 
cionar  un  rango  de  memoria  de  16K  de 
RAM.  Por  lo  tanto,  para  llegar  a  utilizar 
varias  pantallas  de  gráficos  o  distintos  juegos 
de  caracteres,  tienes  que  colocarlos  dentro  de 
un  mismo  banco  de  memoria  de  16K.  El 
direccionamiento  del  banco  se  realiza  con  un 
simple  POKE,  al  menos  en  el  C-64.  En  el 
C-128  debe  funcionar  de  una  forma  similar. 
Para  más  información  puedes  consultar  el 
mapa  de  memoria  del  C-128.  Además,  en  el 
número  26  apareció  un  artículo  que  servía  de 
completa  descripción  sobre  estos  temas,  se 
trata  de  BATALLA  EN  ALTA  MAR,  lo 
encontrarás  en  la  página  16.  Si  tenemos  más 
información  en  un  futuro,  daremos  los  más 
extensos  detalles  que  podamos.  Somos  cons¬ 
cientes  del  gran  interés  que  este  tema  suscita 
entre  nuestros  lectores  más  técnicos. 

NOTA  DE 
REDACCION 

Este  mes  hemos  recibido 
muchas  cartas  de  consulta. 

Las  que  no  han  tenido 
cabida  en  este  número,  se 
publicarán  en  el 
próximo. 
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Servicio  gratuito  para  nuestros  lectores  PARTICULARES.  Los  anuncios  serán  publicados  durante  1  mes. 

Los  anuncios  gratuitos  de  Market  Club  SOLAMENTE  serán  publicados  si  vienen  con  nombre,  apellidos  y  dirección  completa. 


/  MERCADILLO  ¡ 


•  Vendo  unidad  de  discos  Doble  modelo  DH  K-642 
de  la  casa  Computhink.  Utiliza  diskettes  standard 
de  5  y  1/4”,  por  200.000  ptas.  Esta  en  perfecto 
estado.  Agustín  Alaiz  .  C/  Nogal,  6  49  B.  47004 
Valladolid.  Tel.:  (983)  20  33  15.  f Ref.M-1085 ) 
•Compro  C-64  sin  periféricos.  Sobre  20.000  ptas. 
Vendo  Módulo  metálico  para  alojar  el  Vic  similar 
al  Vic-20.  1.000  ptas.  Libro  con  programas  juegos 
300  ptas.,  curso  de  Basic  con  2  libros  y  2  cassettes  19 
y  29  parte  1 .000  ptas.  Cassette  con  programa  Vic-20 
500  ptas.  y  regalo  varias  revistas  de  informática. 
Juan  García.  C  Dos  de  Mayo,  286  19.  08025  Bar¬ 
celona.  Tel.:  (93)  236  74  12  (noches).  ( Ref.M-1086 ). 
•Se  vende  Commodore  64,  cables,  transformador, 
manuales,  embalaje  original.  Todo  ello  en  buen 
estado  y  con  la  garantía  de  Microelectrónica  y  Con¬ 
trol.  Alberto  Durán  López.  Avda.  Santa  Marina, 
42  2Q  deha.  Ferrol,  La  Coruña.  Tel.:  31  46  97. 
(Ref.M-1087). 

•Vendo  Commodore  128,  joystick,  30  revistas, 
programas,  manuales,  libros  por  50.000  ptas.,  y 
65.000  ptas.  incluyendo  Dbase  11,  Wordstart.  M Ba¬ 
sic,  Cobol,  etc.  Junto  o  por  separado.  Perfecto 
estado.  José  Marsá  Mallol.  Tel.:  (93)  352  98  90  de 
2  a  4.  (Ref.M-1088). 

•  Vendo  calculadora  seminueva,  programable  en 
Basic.  CASIO  FX-700  P,  con  las  siguientes  caracte¬ 
rísticas;  1,5  Kbytes  de  memoria  libre,  10  programas 
de  memoria,  salida  para  periféricos  (impresora, 
cassette,  etc.),  etc...  Además  regalo  manual  de  ins¬ 
trucciones  en  castellano  e  inglés,  libro  de  progra¬ 
mas  y  un  lote  de  programas  para  el  C-64.  Lo  doy 
todo  ello  por  10.000  ptas.  Andrés  Martínez.  C 
Longares.  1.  28002  Madrid.  Tel.:  (93)  211  57  34. 
( Ref.M-1089 ). 

•Vendo  interface  para  la  reproducción  de  cual¬ 
quier  programa  o  juego  en  perfecto  estado  por 
2.500  ptas.  El  interface  funciona  con  C-64.  C-128  y 
C-16.  Fernando  Ximénez.  C  Benigno  Soto.  12. 
Madrid.  Tel.:  (91)  416  44  28  Llamar  noches. 
( Ref.M-1090 ). 

•Vendo  vídeo-juego  Philips  Vídeo-Pac  G-7200  con 
pantalla  blanco  y  negro  incluida  y  con  tres  cartu¬ 
chos,  regalo  uno  de  los  cuales  sirve  para  programar 
y  los  dos  restantes  son  juegos  y  dos  más  gratis. 
Todo  por  el  precio  de  23.000  ptas.  José  Santos 
Ruíz.  C  Benedicto  Antequera,  30.  13704  Argama- 
11a  del  Alba,  Ciudad  Real.  (Ref.M-1091). 

•  Se  vende:  Teclado  Commodore  128,  diskdrive 
Commodore  1571,  datassette  Commodore,  impre¬ 
sora  Seikosha  sp-lOOOvc.  monitor  Golstar.  Estado: 
como  nuevo,  casi  sin  uso.  Todo  por  130.000  pesetas. 
Contactar  con  Daniel  o  Mirta.  Teléfonos  474  30  69 
ó  248  78  77.  Daniel  Rivoira.  Toledo,  142,  2.9  A. 
28005  Madrid.  (Ref.  M-1092). 

•  Vendo,  por  cambio  de  equipo,  impresora  Sei¬ 
kosha  GP-550  con  interface  Vicsprint,  para  Com¬ 
modore  por  25.000  pesetas.  Gerardo  Iglesias  Lobe- 
jon.  Avda.  Eloy  Domínguez,  1,  2.  Catoira.  36612 
Pontevedra.  (Ref.  M-1093). 

•  Para  recaudar  fondos  para  la  compra  de  nuevo 
equipo  (C-128)  vendo  para  el  C-64  lo  siguiente: 
Entre  juegos  y  utilidades  hacen  un  total  de  250  pro¬ 
gramas.  Revistas:  Commodore  World,  Commodore 
Magazine,  Input,  Tu  micro.  Muy  Ordenadores, 
Ordenador  Personal,  etc.  Libros:  Gráficos  y  sonido 
para  el  C-64,  varios  libros  de  informática,  dicciona¬ 
rio  de  electrónica  e  informática,  etc.  Miguel  Angel 
Huelves  García.  Entre  Arroyos,  64,  l.e  B.  28030 
Madrid.  Tel.:  (91)  439  96  31.  ( Ref  M-1094). 

•  Vendo:  Commodore  64,  Datacassette,  unidad  de 
discos  1541,  impresora  MPS  501,  cartucho  “The 
final  Cartridge”,  joystick  Quick  Shot  II,  50  revistas 
de  Club  Commodore,  más  de  100  juegos  y  utilida¬ 
des.  Se  vende  todo  junto  por  100.000  pesetas.  José 
Deza.  Serrano,  226.  28016  Madrid.  Tel.:  259  32  43  a 
partir  de  las  siete  de  la  tarde.  (Ref.  M-1095). 

•  Vendo  tarjeta  de  80  columnas  para  C  64.  Su  pre¬ 
cio  19.000  pesetas,  la  vendo  por  10.000  pesetas.  Luis 


Sánchez  Pérez.  Apartado  de  correos  421.  45080 
Toledo.  Tel.:  (925)  22  14  94.  (Ref.  M-1096). 

•  Vendo  Vic-20,  manuales  en  inglés  y  castellano, 
cables,  cintas  conteniendo  unos  100  programas,  y 
dos  cartuchos  de  juegos  (Sargon  II  Chess  y  Alien). 
Lo  vendo  por  15.000  pesetas  negociables,  o  lo  cam¬ 
bio  por  Spectrum  48  k,  impresora  MPS-801  o  uni¬ 
dad  de  discos.  David  Noviembre  Naranjo.  San¬ 
tiago,  44.  21740  Hinojos  (Huelva).  Teléfono:  (955) 
42  72  84.  (Ref.  M-1097). 

•  Vendo  dos  cartuchos  para  el  Vic-20:  Sargon  11 
Chess  y  Alien.  Los  vendo  por  1.500  pesetas  cada 
uno,  pero  incluyendo  gastos  de  envío.  Los  dos  por 
2.700  pesetas.  David  Noviembre  Naranjo.  Santiago, 
44.  21740  Hinojos  (Huelva).  Tel.:  (955)  42  72  84. 
(Ref.  M-1098). 

•  Vendo  quick  data  drive  en  perfecto  estado  por 
falta  de  uso.  Precio  a  convenir.  José  Uña.  Jauregui- 
colanda,  I,  l.°.  Amurrio.  01470  Alava.  Tel.:  (945) 
89  23  06.  (Ref.  M-1099). 

•  Deseo  contactar  con  usuarios  de  la  impresora 
Seikosha  1.000.  Juan  Varea  Porras.  Arturo  Dupe- 
rier  ( Edificio  Albéniz).  Murcia.  Tel.:  (968)  29  65  32. 

(Ref.  M-1100). 

•  Vendo  a  menos  de  mitad  de  precio  120  libros 
sobre  Commodore  64  y  Vic-20,  Ordenador  Vic-20, 
cassette  C2N,  unidad  de  disco  1541  y  nueve  cartid- 
ges  de  ampliación  y  programación  como  (I6k,  8k, 
machine  languaje,  super  expander,  programmer's 
aid...).  Manuel  Pérez  Navarro.  Brasil,  7-1 1  Atico,  2, 
esc.  deha.  08028  Barcelona.  Tel.:  (93)  330  07  93. 
(Ref.  M-llOl). 

•  Vendo  filmadora  SOUND  TL  Super  8  con  Zoom 
motorizado,  lente  1  1.8  como  nueva,  con  estuche 
bandolera  y  filtro  para  iluminación  con  antorcha. 
Precio  de  regalo:  10.000  pesetas  contrareembolso. 
Rafael  Borrel  Viñas.  Plza.  Manent,  2,  A,  l.°,  1.a. 
08921  Santa  Coloma  de  Gramanet  (Barcelona). 
Tel.:  (93)  385  39  17.  (Ref.  M-1102). 

•  Vendo  C-64  más  unidad  de  discos  1541,  conec¬ 
tada  en  paralelo  con  el  sistema  SPEF.D  DOS.  Lleva 
juego  de  interruptores  y  LEDs  con  funciones  adi¬ 
cionales.  Por  el  precio  de  80.000  pesetas  lo  dejaría 
con  TV  color  SHARP  y  por  60.000  pesetas  sin  ella. 
Todo  en  perfecto  funcionamiento.  José  Francisco 
Jal  Pueyo.  Tarbes,  2,  2.Q  izda.  22005  Huesca.  Tel.: 
(974)  22  85  II  en  horas  de  oficina  y  (974)  24  31  46 
(noches).  (Ref.  M-1103). 

•  Me  interesa  comprar  Vic-20  que  funcione.  Fran- 
cesc  Sota.  Entenza,  24.  08015  Barcelona.  Tel.:  (93) 
325  25  78.  (Ref.  M-1104). 

•  Compro  C-128,  Unidad  de  discos  1571  y  moni¬ 
tor.  todo  en  buen  estado  y  precio  a  convenir.  Fran¬ 
cisco  Javier  Salcedo  Serra.  Alto  de  San  Isidro,  s/n. 
49002  Zamora.  Tel.:  (988)  52  77  62  (después  de  las 
20,00  h.).  También  intercambio  para  C-64  disco  y 
cinta.  (Ref.  M-1105). 

•  Compraría  Monitor  Lenguaje  Máquina  para 
Vic-20.  Sólo  Barcelona  y  periferia.  Patricio  Heras 
Cuesta.  Cristóbal  Llargués,  22,  2.9,  3.a.  Cornellá. 
Barcelona.  Tel.:  (93)  375  03  56.  Llamar  de  18  a  22 
horas.  (Ref.  M-1106). 

•  Vendo  C-64  en  perfecto  estado,  junto  con  más  de 
100  títulos.  Todo  por  25.000  pesetas.  Además, 
vendo  lote  de  28  revistas  (Commodore  Magazina, 
Micro  Manía,  etc.).  Llamar  al  (922)  38  36  81,  pre¬ 
guntar  por  Pedro.  (Ref.  M-1107). 

•  Cambiaría  programas,  últimas  novedades  por  car¬ 
tucho  Final  Cartidge  1,  II  o  similar  con  turbo  disco. 
Emilio  González  Espinosa.  Navalmoral  de  la  Mata, 
66,  2.9  A.  28044  Madrid.  Tel.:  705  54  58.  (Ref. 
M-1108). 

•  Vendo  ordenador  Commodore  128  más  unidad 
de  disco  1571,  más  datassette  Commodore,  más  car¬ 
tucho  Final  Cartridge  II,  más  unos  350  programas 
últimos,  más  dos  joysticks  y  más  un  cartucho  de 
copy  “Cosmos”.  Todo  por  el  increíble  precio  de 
120.000  pesetas.  Jesús  M.a  Pinazo  Ruiz.  Avda. 
Andalucía,  94.  29715  Málaga.  Tel.:  (952)  51  13  04. 
(Ref.  M-1109). 

•  Vendo  impresora  Riteman  C+  por  45.000  pese¬ 
tas  y  la  colección  completa  de  la  revista  Commo¬ 
dore  World  por  6.500  pesetas.  Martín  Santiago 
Vidal.  Felanix,  10.  08016  Barcelona.  Tel.:  (93) 
350  68  80  los  fines  de  semana.  (Ref.  M-1110). 


•  Vendo  C-64  con  unidad  de  disco  y  unidad  de 
cassette  con  muchos  programas,  tanto  en  discos 
como  en  cassettes.  Todo  por  65.000  pesetas.  Paul 
Hernández.  Pl.  Gala  Placidia,  1,3,  15.9.  08006  Bar¬ 
celona.  Tel.:  (93)  237  63  54  (tardes).  (Ref.  M-llll). 

•  U  rge  comprar  unidad  de  disco  1571,  monitor  de 
fósforo  verde,  impresora  y  datassette  para  C-64, 
manden  ofertas  a:  Francisco  Javier  López.  Domín¬ 
guez.  Arenque,  13.  Punta  Umbría.  Huelva.  Tel.: 
(955)  31  03  39,  a  partir  de  las  21,45  horas.  (Ref. 
Mil  12). 

•  Por  cambio  de  ordenador  se  vende  Commodore 
C-128,  1571  Disk  drive,  Riteman  C+  y  monitor  en 
color  Dynadata  40/80  columnas  con  cable  incluido, 
todo  en  conjunto  o  por  lotes,  aparte  de  numerosos 
programas,  tanto  en  C-64,  C-128  y  CP/M  mode. 
Marco  A.  Zamit  Engo.  Avda.  País  Valenciano,  45. 
46850  Olleria  (Valencia).  Tel.:  (96)  220  01  16,  sólo 
por  las  mañanas.  (Ref.  M-1113). 

•  Vendo  Commodore  64,  más  unidad  de  discos 
1541,  más  impresora  MPS  802,  más  cassette  C2N, 
más  lápiz  óptico,  más  joystick.  Vendo  todo  con 
procesador  de  textos,  hoja  de  cálculo,  base  de  datos 
y  programas  gráficos.  Además,  regalo  muchos  pro¬ 
gramas  de  juegos,  utilidades  y  revistas.  Todo  por 
110.000  pesetas.  Tel.:  (91)  202  32  01,  durante  las 
horas  de  comida  y  cena.  Preguntar  por  Santiago. 
(Ref.  M-1114). 

•  Vendo,  en  conjunto  o  por  elementos,  ordenador 
Commodore  64,  unidad  de  discos,  datassette, 
impresora  Seikosha  SP-I000VC  compatible  con  C- 
64,  lápiz  óptico,  sofware:  Easy  Script,  Superbase, 
Cale  Result,  Logo  en  castellano,  Simon’s  Basic, 
Supermon,  Forth,  todo  con  manuales  en  castellano; 
Oxford  Pascal,  Basic  Ligthning,  Machine  Ligth- 
ning,  Doodle.  con  manuales  en  inglés.  Diez,  libros 
de  lenguaje  máquina.  Rafael  Rojo  Rojo.  Avda. 
Pablo  Iglesias,  50,  escalera  I,  4.9  A.  28039  Madrid. 
Tel.:  (91)  254  80  62,  llamar  por  las  noches.  (Ref. 
M-1115). 

•  Vendo  Superexpander  +3K  (6.500),  cartucho 
monitor  código  máquina  (3.000),  guía  de  referencia 
de  programador  lndescomp  ( 1 .000),  lote  de  revistas 
americanas,  sólo  para  C-64,  Vic-20,  “Run  y  Com¬ 
pute  Gazzette”  14  números  (200  cada  uno).  Lote 
superexp.  C/M  por  8.500  pesetas.  Todo  por  10.500 
pesetas.  Regalo  programas.  Alejandro  García 
Andrade.  Virgen  del  Buen  Aire,  3,  5.Q  A.  41010 
Sevilla.  Tel.:  (954)  27  46  87.  (Ref.  M-1116). 

•  Se  vende:  Ordenador  C-64,  más  unidad  de  disco 
1541,  más  datassette  1530,  más  guía  de  referencia, 
más  joystick,  más  paddles,  más  todas  las  revistas  de 
Club  Commodore,  más  los  3  primeros  números  de 
Commodore  World  y  más  de  200  programas  muy 
buenos.  Todo  por  85.000  pesetas.  Jesús  Carlos 
Coca.  Avda.  de  Gasteiz,  60,  2.9  F.  01008  Vitoria. 
Tel.:  (945)  22  24  21.  (Ref.  M-1117). 

TRABAJÓ  / 

•  Clases  particulares  de  Basic,  programador 
imparte  clases  de  Basic  por  las  tardes.  A  realizar  en 
mi  C-64  +  unidad  de  disco  T  impresora  o  en  tu 
equipo.  Interesados  llamar  tardes  al  237  63  64,  pre¬ 
guntar  por  Paul.  Paul  Hernández  Kortis.  Plaza 
Gala  Placidia,  1-3  -  15Q.  08006  Barcelona. 

•  Se  pasan  listados  de  programas  a  cinta  de  casett 
cualquier  modelo  Vic-20,  C-64,  C-128.  Los  listados 
pueden  ser  individuales  o  en  conjunto.  Se  aconseja 
mandar  el  listado  fotocopiado.  Los  interesados  con¬ 
tactar  con  Juan  C.  Carbajo.  C/  Garnacho,  7-29  B. 
S.M.  Valdeiglesias.  Madrid. 

•Se  pasan  listados  a  impresora  preferiblemente 
que  estén  en  disco,  pero  también  en  cinta.  Alberto 
Eleno.  Camino  de  Ronda,  101  Portal  2  19  D.  18003 
Granada.  Tel.:  (958)  20  44  68. 

•  Hago  cualquier  tipo  de  gráficos  para  el  C-64.  Soy 
programador  de  Basic  y  6.502-6.510.  Frances’c 
Guasch  Ortíz.  C/  Porto,  40.  08032  Barcelona 
Tel.:  (93)  229  07  02. 


1 — 54/ Commodore  World 


Los  mejores  juegos  publicados  en  COMMODORE  WORLD  desde  nuestros  comienzos,  acompañados  de 
una  novedad,  de  una  superestrella. 


RAMBILLO.  El  Super  Juego  de  acción.  Los  hemos  reunido  todos  en  un  solo  disco,  para  que  podáis 
disfrutar  todos  los  commodorianos  y  los  vic-ciosos  de  los  juegos.  Estos  son  los  programas  que  encontrarás  en 
el  disco. 

C-64  •  Matrax:  La  carrera  de  coches  del  futuro.  El  Castillo  del  Dragón:  Estrategia  y  acción  en  lucha  a 
muerte  contra  el  dragón.  Scandens:  Lucha  contra  el  imperio  marciano  pilotando  tu  nave  espacial.  El  as  del 
béisbol:  Haz  deporte  sin  despegarte  del  ordenador.  Cluedo:  Descubre  el  asesino  en  la  temible  mansión  de  Lañe 
Manor.  Karate:  El  combate  del  siglo,  para  dos  jugadores.  Slide:  Intenta  vencer  al  ordenador  “deslizando”  con 
habilidad  tus  fichas.  El  Reino:  Domina  tu  reino  con  bondad  y  justicia,  en  este  juego  de  estrategia.  Guijón: 
Combate  aéreo  uno-contra-uno  a  velocidad  de  vértigo.  Future  Raiders:  Evita  los  mortales  asteroides  en  una 
carrera  sin  fin. 

VIC-20  *  Rally  en  el  desierto:  Conduce  tu  buggy  entre  los  cactus  del  inhóspito  desierto.  Othello  (+3K): 
Clásico  juego  de  tablero,  intenta  vencer  al  ordenador.  Cocina  loca  (+3K):  Demuestra  tus  habilidades  como 
cocinero  recogiendo  al  vuelo  las  tortillas.  Nimbots  (+8K):  Juego  de  estrategia  contra  el  implacable  dominio 
del  ordenador.  El  Reino:  Domina  tu  reino  con  bondad  y  justicia,  en  este  juego  de  estrategia. 


Todos  ellos  acompañados  de  instrucciones  completas,  a  un  precio  increíble 


¡¡¡PUEDES  ENCARGARLO  YA!!! 


r 


CUPON  DE  PEDIDO  -  SUPER  DISCO  JUEGOS 


I  Nombre  y  apellidos 
I  Dirección  . 


Población 


Teléfono  . 


i  DESEO  RECIBIR  EL  SUPER  DISCO  DE  JUEGOS  A  1 .375  PTAS. 

i 

I  CU  Incluyo  cheque  por  . 

^  O  Envío  giro  n°  .  por . 


Gastos  de  envío  incluidos 


ptas. 

pías. 


r  CLUBS  7 

•  Se  ha  formado  un  Club  de  Usuarios  del  Amiga  en 
Málaga,  para  la  gente  de  toda  España  e  incluso  del 
extranjero,  interesados  en  esta  genial  máquina, 
ponerse  en  contacto  con:  Víctor  Calvo  Medina. 
Club  de  Usuarios  del  Amiga.  C/  Beatas,  20  39  D 
29008  Málaga.  Teléf.:  (952)  21  44  09.  (Ref.  C-132). 

•  Club  Usuaris  Commodore-Tarragona,  centro 
homologado  por  la  Generalitat  de  Catalunya;  nues¬ 
tras  actividades  están  distribuidas  en  distintas  sec¬ 
ciones:  Biblioteca,  Programoteca,  Asesoramiento, 
etc.  Dos  años  al  servicio  de  nuestros  socios.  Para 
información:  Club  Usuaris  Commodore.  Apartado 
de  Correos  176,  Tarragona;  o  también,  Fortuny  4, 
29-2. y  Tarragona.  Además  cursos  de  Informática. 
(Ref.  C-133). 

•  C.l.C.  (Club  Intercommodore),  pedir  informa¬ 
ción  a  C.l.C.  C/  Algorta,  9.  Buzón  9.  28019 
Madrid.  No  os  arrepentiréis.  (Ref.  C-134). 

•  Hemos  formado  un  club  de  CBM  64  y  Spectrum 
48  K,  interesados  escribir  a  Marcelo  Gras.  P° 
Coloma,  47-I.a-2.a.  08030  Barcelona  o  llamar  al 
teléfono  (93)  345  83  24  de  las  20,00  hasta  las  22,00. 
(Ref.  C-135). 

•  Se  ha  formado  el  Club  Commodore  Zamorano 

Casset  y  unidad  de  disco.  Interesados  escribir  a: 
Carlos  Salcedo  Serra.  C/  Alto  de  San  Isidro  s/ n. 
49002  Zamora.  O  bien  llamar  al  (988)  52  77  62 
(Ref.  (136). 

•  C.l.C.  Club  Intercommodore  con  más  de  socios 
espera  que  tú  también  te  apuntes,  para  ser  más. 
Escribir  a  C.l.C.  calle  Algorta,  9  -  buzón  9.  28819 
Madrid.  (Ref.  M-137). 

•  Club  Commodore  la  Palma.  Estamos  formando 
un  club  en  la  Palma  (Canarias)  para  usuarios  de 
Canarias  y  la  península.  Escribir  a:  Daniel  Rodrí¬ 
guez  Fuentes,  c /  Real,  21  -  5o,  portal  A.  S/C  de  la 
Palma,  S/C  de  Tenerife.  (Ref.  M-138). 

•  Desearía  contactar  con  usuarios  del  C-128  y  C-64 
tanto  en  España  como  fuera  de  España  para  inter¬ 
cambiar  programas  tanto  en  cinta  como  en  disco. 
Jesús  del  Castillo  Varela.  Ctra.  Burgos-Portugal, 
69.  47510  Alaejos,  Valladolid.  (Ref.  C-139). 

•  Me  gustaría  formar  un  club  para  intercambio  de 
programas,  mapas,  pokes,  etc...  Aceptamos  miem¬ 
bros  de  toda  España  y  será  para  usuarios  de  C-64. 
Interesados  escribir  a:  José  Santos  Ruíz  Ropero.  C/ 
Benedicto  Antequera,  30.  13710  Argamasilla  de 
Alba,  Ciudad  Real.  (Ref.C-140). 

•  Interesados  en  la  creación  de  un  Club  de  usuarios 
en  Baracaldo,  dirigirse  a  C/  La  Paz,  35  29  B.  Cru¬ 
ces.  Baracaldo  Tel.:  (94)  499  27  72.  Preguntar  por 
Ignacio.  (Ref.C-141). 

•Club  Usuarios  Commodore-Tarragona.  Centro 
Homologado  por  la  Generalitat  de  Catalunya; 
nuestras  actividades  están  distribuidas  en  distintas 
secciones:  Bibliotecas,  Programoteca,  Cursos,  Ase¬ 
soramiento,  etc.  Dos  años  al  servicio  de  nuestros 
socios.  Para  información:  Club  Usuarios  Commo¬ 
dore.  Apartado  de  correos,  176,  Tarragona.  O  tam¬ 
bién,  Fortuny,  4  2?  2a.  Tarragona.  (Ref.C-142). 

•  Diversos  amigos  usuarios  de  C-128  deseamos 
formar  un  club  en  Barcelona  con  objeto  de  exprimir 
al  máximo  las  enormes  posibilidades  de  este  orde¬ 
nador.  Se  pretende  intercambiar  ideas,  experien¬ 
cias,  trucos,  programas,  etc.;  sobre  todo  en  el 
ámbito  del  CP/M,  que  es  el  campo  más  amplio  y 
complejo  en  el  que  nos  hemos  adentrado.  Antonio 
González.  C/  Lorena,  65-67  79  2a.  08031  Barcelona 
Tel.:  359  23  00.  ( Ref.C-143 ). 

•  Interesados  en  la  creación  de  un  Club  de  usuarios 
en  Baracaldo  dirigirse  a:  C/.  La  Paz,  35,  2.9  B. 
Cruces.  Baracaldo.  Tel.:  (94)  499  27  72.  Preguntar 
por  Ignacio.  (Ref.  C-144). 

•  Somos  un  club  de  usuarios  Commodore  y  Spec¬ 
trum.  Si  te  interesa  conocer  nuevos  amigos  y  acce¬ 
der  a  todo  tipo  de  programas  ponte  en  contacto  con 
nosotros.  También  tenemos  servicio  técnico  para 
los  socios.  Estamos  en  C/.  Balmes,  191,  5.Q  4.a. 
08006  Barcelona.  Tel.:  (93)  218  48  43.  (Ref.  C-145). 

•  Se  hacen  trabajos  de  gestión,  emisión  de  recibos, 
de  facturas,  mailing,  etc.  Para  cualquier  sistema. 
Lenguajes  Basic,  Cobol,  Pascal.  Basilio  Puebla 
Sánchez.  Luis  Vives,  7.  Alcalá  de  Henares.  Madrid. 
Tel.:  (91)  889  66  76.  (Ref.  C-146). 

•  Club  Commodore  Canario.  Apartado  2485. 
35080  Las  Palmas.  C-64,  C-128  con  unidad  de  dis¬ 
cos.  (Ref.  C-147). 


I DESEAN  CONTACTAR  CON  OTROSÍ 
/  AMIGOS  COMMODORIANOS  f 


/  C-16  / 

•  Deseo  contactar  con  otros  amigos  commodoria- 
nos.  José  Barral  González.  C/.  Corgo,  s/n.  36000  El 
Grove  (Pontevedra).  Poseo  cassette. 

•  Pablo  Diego  Gayte.  Sabino  Arana,  15-19.  48013 
Bilbao. 

•  Juan  Lorenzo  Moya  Naleno.  C/  Jacinto  Bena- 
vente,  52.  leí.:  (926)  36  01  03.  Infantes  (Ciudad 
Real).  Poseo  cassette. 

•  Donald  Timson  Herranz.  c/  Virtudes,  6-79  iZq 
Tel.:  447  67  03.  Madrid  280 1  Ó.  Poseo  cassette. 


/  VIC-20  / 

•  José  Manuel  Paricio  Sánchez.  C/  Hermanos 
Gambra,  8-2Q  deha.  50010  Zaragoza.  Teléfono:  (976) 
Jl  78  23.  Poseo  cassette  y  unidad  de  disco. 

•  Juan  Lupión  López.  C/  Casarabonela,  21-59  B. 
Tel.:  33  58  71.  29006  Málaga.  Poseo  cassette. 

•  José  García  R.  C/  Aceiterías,  12.  Teléfono:  (987) 
41  80  19.  Ponferrada  24400  León.  Poseo  cassette. 

•  Fernando  Alonso.  C/  Pío  XII,  5.  Teléfono:  (941) 
23  61  39.  Logroño.  26003  La  Rioja.  Poseo  cassette. 

•  Mario  García  Anibarro.  C/  Burgos,  8-19C.  Tel.: 
(91)  613  28  07.  Móstoles.  28931  Madrid.  Poseo 
cassette. 

•  Pedro  V.  Sánchez  de  la  Cruz.  C/  Pedro  Ma 
Plano  46.  Tel.:  (924)  313  878.  06800  Mérida  (Bada¬ 
joz).  Poseo  cassette. 


/  C-64  / 

•  Nicolás  Fajardo  Castro.  Melchor  Almagro,  16, 

2. °  C.  18002  Granada.  Tel.:  20  19  24.  Poseo  cassette 
y  unidad  de  disco. 

•  Francisco  García  López.  Roquetas  de  Mar. 
04740  Almería.  Poseo  cassette  y  unidad  de  disco. 
Preferentemente  juegos  y  musicales. 

•  Basilio  Puebla  Sánchez.  Luis  Vives,  7.  Alcalá  de 
Henares.  Madrid.  Poseo  unidad  de  disco  y  cassette. 
Tel.:  889  66  76. 

•  Miguel  Sánchez.  López.  Avda.  de  la  Raza,  29,  4.° 
D.  21002  Huelva.  Poseo  cassette. 

•  Eduardo  Quevedo  Farrus.  Joan  Baget,  2,  3.9,  2.a. 
25003  Lérida.  Tel.:  (973)  27  23  34.  Poseo  cassette. 

•  Raquel  Esteban  Martín.  Sor  Dositea  Andrés,  10, 

3. °  B.  49001  Zamora.  Tel.:  (988)  51  10  17.  Poseo 
unidad  de  discos. 

•  Gonzalo  Medina  Díaz.  Pol.  la  Granja,  2  esc.  1, 
3.9,  2.a.  08820  El  Prat  de  Llobregat.  Barcelona. 
Poseo  unidad  de  discos. 

•  Francisco  A.  Pradas.  Avda.  Diputación,  4.  18100 
Armilla  (Granada).  Tel.:  (958)  57  06  10.  Poseo  cas¬ 
sette,  unidad  de  discos,  impresora  y  módem. 

•  Fernando  Molina  Pardo.  Paseo  Perales,  23,  2.a 
esc.,  2.9  deha.  280 1 1  Madrid.  Poseo  unidad  de  disco 
1541. 

•  Casiano  López  Coreóles.  Tres  de  Abril,  3,  esc. 
izq.,  7.9  C.  30500  Molina  de  Segura  (Murcia). 
Poseo  unidad  de  disco. 

•  Rafael  Santos  Fernández.  Doctor  Marañón,  3, 
7.9  B.  10002  Cáceres.  Tel.:  22  31  36.  Poseo  cassettte 
y  disco. 

•  José  Patricio  González.  Francisco  Bello,  56.  La 
Cuesta,  La  Laguna  (Sta.  Cruz  de  Tenerife).  Tel.: 
64  57  73.  Poseo  cassette. 

•  Sebastián  Gil  Villanueva.  Maldonado,  28. 
11370  Los  Barrios  (Cádiz).  Tel.:  62  00  74.  Poseo 
cassette. 

•  Eugenio  Terrón.  Avda.  Pérez  Galdós,  47,  2.Q,  1.a. 
08913  Badalona  (Barcelona).  Tel.:  EA3FDX.  Poseo 
unidad  de  disco. 

•  José  Martín  González.  Paseo  Marítimo,  3,  1.9  D. 
29016  Málaga.  Tel.:  22  25  84.  Poseo  cassette  y  uni¬ 
dad  de  disco. 

•  Domingo  Saura  Ballester.  C/.  Explorador 
Ocampos,  3.  Pozo  Estrecho  (Murcia).  Tel.:  55  64  57. 
Poseo  cassette. 

•  David  Ramos  Corchado.  Antonio  Hurtado,  6, 
7.9  D.  10002  Cáceres.  Tel.:  22  83  35.  Poseo  cassette 
y  unidad  de  disco. 


•  David  Noviembre.  C  .  Santiago,  44.  21740  Hino¬ 
jos  (Huelva).  Tel.:  (955)  42  72  84.  Poseo  cassette 
C2N  mod.  1530. 

•  Sebastián  Gil  Villanueva.  Maldonado.  28.  1 1370 
Los  Barrios  (Cádiz).  Tel.:  62  00  74.  Poseo  cassette. 

•  Deseo  conctactar  con  otros  amigos  commodo- 
rianos.  Narcís  Vendrell  Estruch.  C  .  Tarragona,  25, 
1.9,  1.a.  08770  San  Sadurní  d’Anoia  (Barcelona). 
Tel.  891  02  56.  Poseo  cassete  y  unidad  de  disco. 

•  Jesús  González  Herrera.  C/.  Seis,  14.  29018  El 
Candado  (Málaga).  Poseo  cassete. 

•  Enrique  Cantó  Navarro.  Hostal  Goya,  habita¬ 
ción  205.  C/.  Puigcerdá.  Vilanova  i  la  Geltrú  (Bar¬ 
celona).  Poseo  cassete  y  unidad  de  disco. 

•  J.  Antonio  Villalobos.  Crta.  de  Málaga,  km. 
107,200.  Algeciras  (Cádiz).  Poseo  cassete  y  unidad 
de  disco. 

•  Francisco  Parejo  Hurtado.  C¡ .  Los  Poleares,  15. 
14900  Lucena  (Córdoba).  Tel.:  50  09  68.  Poseo  cas¬ 
sete  y  unidad  de  disco. 


/  C-128  / 

•  Daniel  Belles  Monfort.  Avda.  Pérez  Galdós,  19, 
E,  6,  22.  12002  Castellón.  Poseo  unidad  de  discos. 

•  Miguel  A.  Puerta  Carrasco.  San  Jerónimo,  23, 

2. °.  18001  Granada.  Poseo  cassette  y  unidad  de  dis¬ 
cos. 

•  Deseo  contactar  con  otros  amigos  commodoria- 
nos.  Daniel  Santiago  Vindel.  C/.  Canalejas,  73  A, 

3. °  D.  39004  Santander  (Cantabria).  Tel.  27  38  74. 
Poseo  cassette  y  unidad  de  disco. 

•  Javier  Herrera  Herranz.  Fernando  de  los  Ríos, 
69,  7.9  C.  39006  Santander  (Cantabria).  Tel.  22  73  74. 
Poseo  unidad  de  disco. 

•  Angel  López  Romaní.  Avda.  Cataluña,  16.  43002 
Tarragona.  Tel.:  (977)  22  53  88.  Poseo  cassette  y 
unidad  de  disco. 

•  Tony  Rueda  Roselló.  C/.  Padilla,  216,  1.9,  4.a. 
08013  Barcelona.  Tel.:  (93)  245  99  38.  Tengo  casse¬ 
tte  C2N-A  y  unidad  de  disco  1571. 

•  Javier  Alvarez  Casabella.  Trav.  López  Balleste¬ 
ros,  I.  36600  Villagarcía  de  Arosa  (Pontevedra). 
Tel.:  50  1 1  44.  Poseo  cassette  y  unidad  de  disco. 

•  Angel  Rodríguez  Sánchez.  Res.  Jardines,  blq.  7, 
n.°  5.  10000  Cáceres.  Poseo  cassette  y  unidad  de 
disco. 


/  amiga  / 

•  Deseo  contactar  con  otros  amigos  commodoria- 
nos.  David  Noviembre  Naranjo.  C/.  Santiago,  44. 

21740  Hinojos  (Huelva).  Tel.  (955)  42  72  84.  Poseo 
cassette  C2N  mod.  1530. 

•  Luis  San  José  Fernández.  C/.  General  Shelly,  25, 

3.°  D.  47013  Valladolid.  Tel.:  (983)  27  73  71.  Poseo 
cassette. 

•  Deseo  contactar  con  otros  amigos  commodoria- 
nos.  Pedro  Sosa  Sosa.  C/.  Ramón  Freixa,  59  A, 

4.9,  3.a.  08720  Vilafranca  del  Penedes  (Barcelona). 

Tel.:  (93)  890  14  70.  Poseo  unidad  de  disco. 

•  David  Boix  Matamala.  Avda.  Morera,  32-36,  at. 

2.a.  08915  Badalona  (Barcelona).  Tel.:  395  42  03. 

Poseo  unidad  de  disco. 

•  Francisco  Loperena  Farran.  C/.  Daoiz,  2.  11701 
Ceuta.  Tel.:  (956)  51  57  19.  Poseo  unidad  de  disco 
Ex. 3. 5  e  impresora  2.5  Mgb. 

•  Diego  Lencina  García-Barcia.  Doctor  Nieto,  44. 

9  C.  03013  Alicante.  Tel.:  (96)  520  26  23. 

I - 

1  Deseo  contactar  con  otros  amigos  Commodorianos 
I 

!  Nombre . 


Dirección 


Telf.: .  Ciudad: 

C.P .  Provincia . 


Modelo  de  ordenador . 

Tengo  Cassette .  □ 

Unidad  de  Disco .  □ 


Tengo  Cassette .  □ 

Unidad  de  Disco .  □ 
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THE  BIG  BLUE  READER 

Ordenador:  Commodore  128 
Distribuidor:  C1MEX  ELECTRONICA 

c/  Floridablanca ,  54  -  ent.  3-A 
Barcelona 
Telf.:  (93)  424  34  22 
Precio:  9.900  pts. 

Este  programa  de  utilidad  permite  realizar 
intercambios  de  información,  entre  discos 
formateados  con  los  sistemas 
Commodore  y  MS-DOS.  Para  realizar 
esta  complicada  tarea  son  necesarios  el 
C-128  y  la  unidad  de  disco  1571.  Gracias 
a  este  programa  y  con  estos  elementos  mínimos,  se 
pueden  leer,  copiar  y  formatear  discos  de  formato 
MS-DOS  (IBM-PC  y  compatibles). 

El  programa  es  muy  completo,  manejable  y  bien 
presentado  y  documentado.  Pero,  por  supuesto,  no 
hace  “de  todo”.  El  BIG  BLUE  READER  no  puede 
ejecutar  programas  de  MS-DOS.  Los  programas 
diseñados  para  funcionar  con  el  sistema  operativo 
MS-DOS,  con  procesadores  de  16  bits  y  otras 
configuraciones  de  memoria,  no  pueden  ejecutarse  con 
un  C-128  y  su  8502  de  ocho  bits.  También  hay  que 
tener  en  cuenta  las  especiales  técnicas  utilizadas  por 
algunos  programas  comerciales  (procesadores  de 
textos,  bases  de  datos,  gestiones  de  ficheros,  etc.) 
respecto  a  la  mezcla  de  comandos  de  formato, 
que  no  son  compatibles  con  otros  procesadores  o 
programas.  Sin  embargo,  por  lo  que  nosotros  hemos 
probado,  el  programa  es  capaz  de  leer  los  formatos  de 
todos  los  ficheros  y  programas  que  hemos  probado. 
Uno  de  los  programas  que  contiene  el  disco  BIG 
BLUE  READER,  llamado  “BIG  BLUE  FORMAT”, 
sirve  para  formatear  discos  en  una  unidad  1571  de 
Commodore,  pero  dándoles  el  formato  del  MS-DOS. 
Esta  magnífica  herramienta  permite  comenzar  a 
realizar  pruebas  a  los  pocos  instantes  de  abrir  el 
manual  de  instrucciones.  Como  es  lógico,  el  manual 
de  instrucciones  está  totalmente  traducido  al 
castellano,  norma  general  de  la  casa  CIMEX.  Y  la 
presentación  de  la  utilidad,  externamente,  da  un  estilo 
de  gran  profesionalidad  al  programa.  En  este  sentido, 
sigue  la  línea  de  SUPERCONTA  64. 

La  utilización  del  programa  se  simplifica  gracias  al 
completo  menú  principal.  Este  menú  contiene  las 
opciones  siguientes: 

1. —  LOAD  DIR  Para  cargar  el  directorio  de 

cualquier  disco  (MS-DOS  o 
COMMODORE). 

2. —  COPY  Que  permite  copiar  archivos. 

3. —  PRINT  Vuelca  el  contenido  del  buffer 

por  pantalla  o  impresora. 

4. —  LOAD  Lee  un  archivo  contenido  en 

disco. 

5. —  BUFFER  Cambia  el  tamaño  del  buffer 

utilizado. 

6. —  DATE  Para  cambiar  la  fecha. 

7. —  TIME  Permite  cambiar  la  hora. 

8. —  DISK  CMDS  Sirve  para  ejecutar  comandos  de 
disco. 


Las  opciones  son  claras  y  sencillas  de  utilizar,  además 
de  estar  muy  explicadas  en  el  manual.  Pero  vamos  a 
referirnos  a  la  opción  buffer,  para  señalar  su 
significado  y  la  relación  con  la  forma  de  trabajo  del 
programa.  La  lectura  de  ficheros  en  formato 
Commodore  se  realiza  normalmente,  sin  embargo,  a 
la  hora  de  leer  formatos  MS-DOS,  el  programa  lo 
hace  por  software.  Debido  a  este  sistema,  es  necesario 
definir  y  adecuar  el  buffer  de  trabajo. 

La  opción  más  importante  es  sin  duda  COPY.  Al 
igual  que  en  MS-DOS  u  otros  sistemas,  y  como  su 
nombre  indica,  sirve  para  copiar  archivos.  Gracias  a 
esta  función,  los  datos  contenidos  en  diskettes 
Commodore  podrán  ser  traspasados  al  PC  de  la 
oficina,  al  del  amigo,  o  cuando  tengamos  uno 
trabajando  junto  a  nuestro  Commodore  64  ó  128. 
Seguro  que  muchos  usuarios  se  están  haciendo  ya  sus 
cálculos  de  las  posibilidades  que  les  abre  este 
magnífico  programa.  Al  menos  yo  conozco  a  más  de 
uno.  Es  una  gran  utilidad  que  funciona  bien  y  es  de 
sencillo  manejo.  No  se  puede  pedir  más.  ■ 


EXPERT  CARTRIDGE 

Ordenador:  C-64 
Distribuidor:  Hispasoft 

c/  Coso f  87 f  6Q  A 
50001  Zaragoza 
Telf.:  (976)  39  99  61 
Precio:  13.900  pts . 

Este  “Cartucho  Experto”  es  uno  de  los 
últimos  cartuchos  copiadores  que  han 
salido  al  mercado.  Funciona  como 
cualquier  otro  “freezer”  (“congelador”, 
sería  la  traducción),  deteniendo  un 
programa  o  juego  durante  su  ejecución  y 
sacando  una  copia  en  cinta  o  disco  que  puede 
cargarse  sin  tener  el  cartucho  conectado.  El  Expert 
Cartridge  es  realmente  uno  de  los  mejores,  tanto  por 
sus  prestaciones  como  por  su  capacidad  de  expansión. 
El  cartucho  lleva  un  botón  pulsador  para  hacer  Reset 
y  un  interruptor  de  tres  posiciones.  Estas  tres 
posiciones  son  “On”  para  encendido,  “Off”  para 
apagado  y  “Prg”  para  programación.  ¿Qué  quiere 


OMENT ARIOS  COMMODORE 


decir  esto  de  “programación”?  Bien,  el  Expert  no  es 
un  cartucho  convencional,  en  su  interior  lleva  una 
memoria  RAM  programable,  de  modo  que  podemos 
programarla  leyendo  el  “sistema  operativo”  desde 
disco.  Este  aspecto  es  muy  interesante,  pues  permite 
tener  varios  cartuchos  en  uno,  que  si  se  encontraran 
en  ROM  o  EPROM  no  podrían  ser  modificados.  En 
el  disco  que  se  suministra  se  encuentran  las  versiones 
2.7m  y  2.9,  cada  una  con  características  diferentes, 
aunque  son  muy  parecidas.  Una  curiosa  característica 
de  este  cartucho  es  que  puede  utilizarse  para 
diferentes  funciones:  como  ensamblador,  para  sacar 
volcados  de  pantallas  o  como  copiador  rápido  de 
ficheros  con  sólo  programarlo  adecuadamente  (esto 
no  está  incluido  en  la  versión  base). 

Nada  más  conectar  el  cartucho  hay  que  programarlo, 
utilizando  uno  de  los  sistemas  operativos  que  se 
encuentran  en  el  disco.  A  continuación  debe 
inicializarse  el  ordenador  y  el  cartucho  estará  listo 
para  funcionar:  cargamos  cualquier  juego  o  programa 
desde  cinta  o  disco  y  cuando  esté  funcionando  bastará 
con  pulsar  la  tecla  RESTORE  para  “saltar”  al 
monitor  de  código  máquina  del  Expert  Cartridge.  El 
Expert  es  en  realidad  un  monitor  de  c.m.,  solo  que 
lleva  incluidos  unos  cuantos  comandos  especiales  para 
grabar  los  programas  “congelados”. 

Los  comandos  especiales  del  Expert,  aparte  de  los 
típicos  (ensamblar,  desensamblar,  ver  memoria...)  son: 
B  para  listar  un  programa  basic,  quitando  las 
protecciones;  E  para  hacer  EORs  a  una  zona  de 
memoria  con  un  determinado  valor,  I  para  sumar  un 
valor  a  una  zona  de  memoria;  K  para  buscar 
referencias  a  una  dirección  de  memoria  determinada; 

N  para  hacer  un  reset  y  volver  al  Basic  (existe  la 
posibilidad  de  determinar  con  qué  byte  se  debe  llenar 
la  memoria);  P  para  hacer  un  reset  “con  trampa”, 
dejando  sin  borrar  algunos  bytes  aleatoriamente 
distribuidos  por  la  memoria  (algunos  programas 
utilizan  esto  como  protección),  R  para  re-ejecutar  un 
programa  una  vez  “congelado”;  U  e  ?  para  convertir 
de  decimal  a  hexadecimal  y  viceversa;  W  para 
arranque  en  caliente;  X  para  leer  bajo  ROM  y  Z  para 
sacar  una  copia  comprimida  de  la  memoria  a  disco 
(esta  opción  es  para  congelar  programas).  También 
hay  algunos  para  enviar  comandos  al  disco,  leer  el 
directorio  y  cambiar  los  colores  de  la  pantalla. 
Utilizando  el  comando  “Z”  para  copiar  un  programa, 
se  obtiene  un  programa  “en  un  solo  fichero”,  que 
consiste  en  una  línea  basic  con  un  SYS.  El  programa 
se  encuentra  en  realidad  “comprimido”  y  al  ejecutarlo 
con  RUN  se  descomprime  y  ejecuta,  en  el  mismo 
punto  en  que  fue  detenido  en  el  momento  de  hacer  la 
copia.  Realmente  está  muy  bien,  pues  permite 
aprovechar  el  disco  al  máximo,  ya  que  se  copia  nada 
más  que  lo  necesario,  y  no  los  espacios  de  memoria 
no  utilizados. 

El  Expert  necesita  siempre  una  zona  de  unos  200 
bytes  para  sus  rutinas  de  “descompresión”,  esta  zona 
se  busca  automáticamente  al  inicializar  el  monitor  con 
RESTORE,  pero  si  la  copia  no  funciona  (porque  esa 
zona  no  sea  la  adecuada)  siempre  se  puede 
modificarla  a  mano,  buscando  con  el  monitor  algún 
lugar  vacío.  Aquí  entra  en  juego  la  habilidad  personal 
de  cada  uno.  Por  supuesto,  el  juego  o  programa 


también  puede  ser  modificado  desde  el  monitor  para 
conseguir  vidas  infinitas,  incluir  mensajes  “extras”,  etc. 
En  el  disco  van  incluidos  una  serie  de  pequeños 
utilitarios  como  un  formateador  rápido,  un  cargador 
con  turbo  de  disco  incorporado,  e  incluso  un 
desprotector  de  juegos  multi-parte  que  normalmente  no 
pueden  “congelarse”  por  los  sistemas  conocidos: 
funciona  con  todos  los  que  utilizan  el  sistema 
Novaload  (que  son  muchos).  Tanto  el  programa  como 
el  manual  están  traducidos  al  castellano. 

¿Cuál  es  la  efectividad  de  este  cartucho?  Realmente  es 
difícil  de  comprobar.  Puede  decirse  que  copia  la  gran 
mayoría  de  los  juegos  y  programas  antiguos  y  muchos 
de  los  actuales.  Los  más  protegidos,  por 
interrupciones  NMI  o  por  el  chip  de  sonido  son  los 
más  difíciles  y  no  todos  se  pueden  desproteger.  No 
obstante,  la  ventaja  de  que  el  sistema  operativo  del 
Expert  puede  actualizarse  con  solo  comprar  un  disco 
con  la  nueva  versión  lo  hace  muy  tentador  y 
prácticamente  imparable:  nuevas  protecciones,  nuevos 
sistemas  para  evitarlas;  nuevas  protecciones...  sí,  es  la 
pescadilla  que  se  muerde  la  cola,  pero  el  Expert  es  el 
que  lleva  la  ventaja.  ■ 


REX-DOS 

ACELERADOR  DE  DISCO 

Ordenador:  C-64y  1541 
Distribuidor:  Hispasoft 

c/  Coso ,  87  6Q  A 
50001  Zaragoza 
Telf.:  (976)  39  99  61 
Precio:  10.900  pts. 

ste  nuevo  complemento  para  la  unidad 
de  disco  es  algo  que  muchos  usuarios 
estaban  esperando:  un  turbo  que  sea 
rápido,  eficaz,  compatible  y 
“transparente”.  Todas  estas 
características  pueden  encontrarse  en  el 
Rex-Dos,  que  es  un  nuevo  interface  paralelo  que 
conecta  el  C-64  y  la  1541. 

Desde  que  se  dio  por  llamar  a  la  1541  la  “unidad  más 
lenta  del  mundo”  (y  con  razón)  han  ido  apareciendo 
todo  tipo  de  turbos;  desde  los  que  eran  simples 
programas,  como  el  HypraLoad,  hasta  los  cartuchos 
como  Fast  Load  de  Epyx  o  el  popular  Final 
Cartridge.  La  velocidad  de  carga  ha  aumentado 
considerablemente,  antes  se  conseguía  un  aumento  del 
75  por  ciento,  después  de  cuatro  o  cinco  veces,  y 
últimamente  hasta  de  25  veces  (con  el  Vorpal  de 
Epyx).  El  Rex-Dos  es  algo  más  rápido  todavía,  unas 
30  veces.  La  siguiente  tabla  comparativa  te  dará  una 
idea  de  la  velocidad: 

Cargar  un  programa  de  148  bloques  (unos  37  Ks) 

1541  estándar  3  minutos 

Final  Cartridge  30  segundos 

Vorpal  12  segundos  (inicializado) 

Rex-Dos  10  segundos 

La  pequeña  diferencia  entre  el  Vorpal  y  el  Rex-Dos  es 

en  realidad  mayor,  pues  para  inicializar  el  Vorpal 

hacen  falta  unos  15-20  segundos.  El  tiempo  para 
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grabar  el  programa  de  148  bloques  con  Rex-Dos  es  de 
47  segundos  y  para  verificarlo,  de  tan  solo  12. 

0Cómo  puede  conseguirse  tanta  velocidad?  Bien,  el 
Rex-Dos  está  compuesto  de  lo  siguiente:  una  nueva 
Rom  DOS  para  la  unidad  de  discos,  un  cable  paralelo 
(que  se  conecta  al  port  del  usuario,  quedando 
inservible)  y  una  nueva  ROM  Kernal  para  el  C-64.  El 
secreto  de  la  transmisión  de  datos  está  en  la  conexión 
paralelo:  pueden  transmitirse  8  bits  a  la  vez  (aunque 
en  realidad  transmite  9  o  más,  también  por  el  port 
serie)  lo  que  acelera  considerablemente  la  velocidad. 
Para  montar  el  Rex-Dos  no  hace  falta  ser  un  manitas 
de  la  electrónica,  pero  sí  hacerlo  con  cuidado  y 
delicadeza.  Todo  lo  que  hay  que  hacer  es  quitar  unos 
integrados  de  las  placas  y  sustituirlos  por  unas 
tarjetas.  Nadie  debería  tener  problemas,  pero  en  caso 
de  duda  conviene  dirigirse  a  una  tienda  especializada 
o  a  un  servicio  técnico. 

Una  vez  instalado  el  sistema,  aparece  en  la  pantalla 
del  ordenador:  COMMODORE  64  BASIC  REX- 
DOS  38911  BYTES  FREE,  un  mensaje  distinto  del 
habitual.  El  espacio  destinado  a  Basic  es  el  mismo, 
por  lo  que  no  tendrás  problemas  para  correr  ninguno 
de  tus  programas.  Se  han  añadido  unos  cuantos 
comandos  y  se  han  incluido  unas  pequeñas 
modificaciones:  las  teclas  de  función  contienen  los 
comandos  Basic  RUN,  LIST,  LOAD,  SAVE,  y 
directorio  (>$0);  puedes  utilizar  los  comandos  del 
DOS  WEDGE,  precedidos  de  la  arroba  (@)  y  un  par 
de  curiosidades:  CTRL-DEL  que  borra  hasta  el  final 
de  una  línea  y  CTRL  HOME  que  te  lleva  a  la  esquina 
inferior  izquierda  de  la  pantalla.  Realmente,  aquél  que 
esté  acostumbrado  a  utilizar  el  Final  Cartridge  no 
tendrá  dificultades  en  acostumbrarse  al  Rex-Dos,  pues 
son  casi  iguales. 

Al  cargar  un  programa,  aparece  el  mensaje 
LOADING  FROM...  TO,  para  que  sepamos  las 
direcciones  inicial  y  final  de  carga.  Además,  la 
pantalla  no  se  borra  y  puedes  ver  lo  que  está 
haciendo.  Esto  es  algo  que  no  sucede  con  otros  turbos 
de  disco. 

En  cuanto  a  la  compatibilidad,  el  Rex-Dos  es  de  los 
del  “99%  compatible”.  Lo  hemos  probado  con  casi 
todo:  ficheros  Vorpal,  “freezes”  de  Final  Cartridge  2, 
ficheros  de  “Isepic”,  programas  multi-parte...  y  no 
interfiere  con  ninguno,  es  más,  los  acelera.  Los 
programas  comerciales  que  cargan  sus  ficheros  con 
LOAD  o  SAVE  también  se  aceleran  (por  ejemplo,  el 
Art  Studio  de  Rainbird)  y  la  verdad  es  que  se  nota 
mucho.  Los  ficheros  secuenciales,  por  desgracia,  se 
cargan  a  la  misma  velocidad.  Incluso  sacando  un 
directorio  el  Rex-Dos  es  más  rápido:  un  directorio  de 
60  ficheros,  que  normalmente  tarda  en  visualizarse  8 
segundos  se  puede  ver  en  sólo  3.  Formatear  un  disco 
lo  hace  en  sólo  25  segundos. 

En  fin,  que  el  Rex-Dos  es  uno  de  los  turbos  de  disco 
más  compatibles,  rápidos  y  versátiles  que  hemos  visto 
hasta  ahora.  Puedes  dejarlo  conectado  sin  problemas 
que  funcionará  con  casi  todo.  En  cualquier  caso, 
desconectando  el  cable  paralelo  puedes  dejar  el 
sistema  a  velocidad  normal,  o  utilizar  el  comando 
OFF  para  desconectar  las  ampliaciones  del  Basic  (no 
el  turbo).  ■ 


(Viene  de  pág.  30) 


380 

REM  GIGANTES  EN  SPRITES 

.  109 

390 

REM 

(0  1987  BY  IGNACIO  URZAY 

.  159 

400 

REM 

(0  1987  BY  COMMODORE  WORLD 

.  157 

410 

: 

.  131 

420 

FORI" 

=49408TO49556 : READA : POKE I , A 

.57 

sNEXT 

430 

DATA 

0,0,0,21 , 18,26,1 

.  117 

440 

DATA 

25,56,55,0,162,6, 142 

.69 

450 

DATA 

0,193,32,26,193,174,0 

.  101 

460 

DATA 

193,202,16,244,96,120,165 

.  161 

470 

DATA 

1,41 ,251 , 133,1 ,174,0 

.21 

480 

DATA 

193,169,208,133,252,169,62 

.249 

490 

DATA 

133,254,189,3,193, 10,144 

.237 

500 

DATA 

2,230,252,10,144,2,230 

.77 

510 

DATA 

252 ,10,144,2, 230 , 252 , 1 33 

.  193 

520 

DATA 

251 ,138,240,12,169,0,24 

.  114 

530 

DATA 

105,64, 144,2,230,254,202 

.222 

540 

DATA 

208,246,133,253,160,63,169 

.  136 

550 

DATA 

0,145,253,136,208,251 , 177 

.58 

560 

DATA 

251 ,140,1,193,160,1,162 

.  156 

570 

DATA 

3,72,74,1 10,2,193,104 

.98 

580 

DATA 

74,110,2,193,202,16,243 

.226 

590 

DATA 

72,173,2,193,145,253,104 

.92 

600 

DATA 

136,16,231 , 165,253,24,105 

.218 

610 

DATA 

6,133,253,144,2,230,254 

.80 

620 

DATA 

172,1, 193,200,192,8,208 

.48 

630 

DATA 

205,165,1 ,9,4,133,1,88,96 

.  122 

Listado  4 

PROGRAMA:  DEMO 

100  REM  SPRITES  EN  LOS  BORDES-DEMO 

.  204 

110  REM  (0  1987  BY  IGNACIO  URZAY 

.  134 

120  REM  (0  1987  BY  COMMODORE  WORLD 

.  132 

130  : 

.  106 

1 40  POKE53280 , 0 : P0KE5328 1 , 0 : PR I NT " C 
CLR  3  " 

.  182 

1 50  AS= " CONBORDE " : GOSUB400 

.  18 

160  V=53248 

.40 

170  POKEV+29 , 255 : PQKEV+23 , 255 

.  170 

180  FORC=0TO7 : POKE2040+C , 248+C 

.74 

190  P0KEV+39+C ,14: NEXT 

.  120 

200  FORC=0TO2: P0KEV+2*C , 50+27*C: NEX 

T : F0RC=3T07: P0KEV+2*C , 66+27*C: NEXT 

.98 

210  POKEV+21 ,255: FORY=30TO120 

.212 

220  FORA=0TO7: P0KEV+A*2+1 , Y: NEXTA, Y 

.84 

230  FOR Y= 1 T04 : P0KE49445 ,212: GOSUB40 
0: GOSUB400 

.218 

240  NE  X  T :  PR  I  NT  "  C  1 3CRSRD 3 í GRN I [ 9SPC 3 
DESCONECTAMOS  BORDES " : C=4 : GOSUB340 

.212 

250  AS= "SIN": FORA= 1 T03 : GOSUB470 :  SYS 
49165: C=1 : GOSUB340: NEXTA 

.36 

260  FORY= 1 20TO252 : FORA=0TO7 : POKEV+A 
*2+1 , Y: NEXTA , Y : C= 10: GOSUB340 

.247 

270  POKEV+21 ,0: A*="URZAY87" : GOSUB40 
0: SYS49165 

.  89 

280  FORC=0TO4 : P0KEV+2*C , 1 1 0+27*C : PO 
KEV+C*2+ 1 , 33: NEXT 

.  149 

290  F0RC=5T06: P0KEV+2*C , 15+27*C: POK 
EV+C*2+1 , 255 :NEXTC: POKEV+21 , 127: POK 
E53280 , 0 

.  143 

300  PR I NTT AB ( 9 ) " C 1 7CRSRD  3  ESTO  FUE  T 
ODO _ CCRSRD3  " 

.  153 

310  PRINTTABÍ 11) "CCRSRD3. .  POR  AHOR 

A  ! C  7CRSRD  3 “ : POKE53280 , 6 

.  131 

320  END 

.67 

330  REM  RETARDA 

.57 

340  FORWW= 1T0C* 150: NEXT: RETURN 

.35 

350  REM  ALMACENA  CADENA  A*  A  PARTIR 

.87 

360  REM  DE  LA  POSICION  49411  Y 

.7 

370  REM  ESTABLECE  LONGITUD  DE  LA 

.  11 

380  REM  MISMA  EN  49420  Y 

.213 

390  REM  GENERA  LOS  CARACTERES 

.45 

400  AS=LEFTS ( A* , 8 ) : FORA= 1 TOLEN (AS) : 
GOSUB480 

.243 

4 1 0  P0KE494 1 0+ A , C : NE XT : POKE49420 , LE 

N ( A* ) : SYS494 1 9 : P0KE49445 , 208: RETURN 

.239 

420  REM  ALMACENA  CARACTER  NUMERO  A 

.  135 

430  REM  DE  LA  CADENA  AS  EN  LA 

.5 

440  REM  POSICION  49410+A  E  INDICA 

.  189 

450  REM  SPRITE  EN  EL  CUAL  GENERAR 

.55 

460  REM  MEDIANTE  LA  POSICION  49408 

.  47 

470  GOSUB480 : POKE49408 , A- 1 : P0KE494 1 

1 +A- 1 , C : SYS49434 : RETURN 

.  11 

480  REM  PASA  CARACTER  ASCII 

.  131 

490  REM  A  CODIGO  DE  PANTALLA 

.43 

500  C= ASC (MI DS ( AS , A , 1 ) ) :C=C+(C>63AN 
DC<96)  *64+  (095)  *32:  RETURN 

.229 
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Clave  para  interpretar  los  listados 


Todos  los  listados  que  se  publican  en  esta 
revista  han  sido  ejecutados  en  el  modelo 
correspondiente  de  los  ordenadores 
Commodore.  Para  facilitar  la  edición  de  los 
mismos  y  para  mejorar  su  legibilidad  por 
parte  del  usuario  se  les  ha  sometido  a  ciertas 
modificaciones  mediante  un  programa  escrito 
especialmente  para  ello.  Dado  que  los  ordenadores 
Commodore  utilizan  frecuentemente  las  posibilidades 
gráficas  del  teclado,  se  han  sustituido  los  símbolos 
gráficos  por  una  serie  de  equivalencias  entre  corchetes 
que  indican  la  secuencia  de  teclas  que  se  deben  pulsar 
para  obtener  dichos  caracteres.  A  continuación  tenéis 
na  tabla  para  aclarar  la  interpretación  de  las  claves: 
<CRSRD>  =  Tecla  cursor  abajo  (sin  shift). 
<CRSRU>  =  Tecla  cursor  arriba  (con  shift). 
<CRSRR>  =  Tecla  cursor  derecha  (sin  shift). 
<CRSRL>  =  Tecla  cursor  izquierda  (con  shift). 
<HOME>  =  Tecla  CLR/HOME  sin  shift. 

<CLR>  =  Tecla  CLR/HOME  con  shift. 

<SPC>  =  Barra  espaciadora.  Cuando  se  trata  de 
un  solo  espacio  no  aparece.  También  existe  <SHIFT 
SPC>,  que  se  obtiene  pulsando  SHIFT  y  la  barra 
espaciadora  a  la  vez. 

<DEL>  =  Tecla  INST/DEL  sin  shift.  Para 
obtener  este  carácter  hay  que  pulsar  antes  <INST>. 
<INST>  =  Tecla  INST/DEL  con  shift. 

<BLK>  a  <YEL>  corresponden  a  los  colores, 
pulsando  a  la  vez  la  tecla  CTRL  y  un  número  del  1  al 
8.  Puede  aparecer  también  como  <CTRL  1>  o 
CCTRL  7>. 

<RVS  ON>  y  <RVS  OFF>  corresponden  a 
CTRL  con  las  teclas  8  ó  9. 

<F1>  a  <F8>  corresponden  a  las  teclas  de 
función. 

Todos  estos  caracteres  aparecen  en  la  pantalla 
como  letras  o  gráficos  en  vídeo  inverso. 

<FLCH  ARRIBA>  =  Tecla  de  flecha  arriba. 
<FLCH  IZQ>  =  Tecla  de  flecha  izquierda. 

<PI>  =  Tecla  de  flecha  arriba  con  shift. 
<LIBRA>  =  Tecla  signo  de  libra  esterlina. 


Estos  cuatro  aparecen  en  la  pantalla  como  están 
dibujados  sobre  las  teclas. 

<BELL>  =  Tecla  G  con  control. 

<TAB>  =  Tecla  TAB  o  tecla  I  con  control. 

<LFEED>  =  Tecla  LINE  FEED  o  tecla  J  con 
control. 

Y  esta  última  tanda  de  cuatro  que  sólo  son  para 
programas  del  C-128,  en  modo  128. 

El  resto  de  las  claves  constan  siempre  de  una  letra 
o  símbolo  precedidos  de  las  palabras  COMM  o 
SHIFT,  por  ejemplo  <COMM+>  o  <SHIFT  A>. 
Esto  indica  que  para  obtener  el  gráfico  necesario  hay 
que  pulsar  a  la  vez  la  tecla  COMMODORE  (abajo  a 
la  izquierda)  o  la  tecla  SHIFT  (cualquiera  de  ellas) 
junto  con  la  letra  o  símbolo  correspondiente. 

También  puede  aparecer  un  número  indicando 
cuántas  veces  hay  que  repetir  el  carácter. 

<7  CRSRR>  equivale  a  siete  cursores  a  la  derecha  y 
<3  SPC>  a  tres  pulsaciones  de  la  barra  espaciadora. 

Cómo  utilizar  la  suma  de  control 

Todos  los  listados  para  C-64  o  C-128  que  aparecen 
en  la  revista  llevan  una  suma  de  control  para  que  no 
te  equivoques  a  la  hora  de  teclearlos.  Para  poder 
utilizar  esta  suma  de  control  tendrás  que  teclear  el 
programa  que  aparece  aquí  listado.  Se  llama 
“Perfecto”.  Cuando  lo  hayas  tecleado,  compruébalo  y 
sálvalo  en  disco  o  cinta. 

Cada  vez  que  vayas  a  teclear  uno  de  los  programas 
que  aparecen  en  Commodore  World  debes  cargar 
antes  el  programa  corrector.  Apunta  los  dos  valores 
SYS  que  aparezcan  en  la  pantalla,  pues  te  servirán 
para  conectar  o  desconectar  el  programa  cuando 
quieras. 

Verás  que  a  la  derecha  de  todos  los  listados 
aparece  un  punto  seguido  de  un  número.  Eso  no 
debes  teclearlo,  pues  en  tal  caso  el  programa  no  te 
funcionaría.  Comienza  a  teclear  el  listado 
normalmente.  La  única  diferencia  que  notarás  es  que 
al  pulsar  RETURN  aparecerá  un  asterisco  seguido  de 


DEPARTAMENTO  DE  SUSCRIPCIONES 

Para  que  vuestros  contactos  con  nosotros  sean  más  rápidos  y  seguros, 
indicad  el  departamento  al  que  va  dirigida  vuestra  carta. 

Todos  los  pedidos  de  números  atrasados,  renovación  de  suscripciones, 
problemas  del  correo  con  vuestra  suscripción,  etc.,  dirigidlos  a: 

DEPARTAMENTO  DE  SUSCRIPCIONES  (COMMODORE  WORLD) 

C /  Rafael  Calvo,  18  -  4^  B 
28010  MADRID 

Nuestro  servicio  será  mejor  con  vuestra  colaboración.  GRACIAS. 
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un  número  de  una,  dos  o  tres  cifras  debajo  del 
cursor.  Es  la  suma  de  control.  Compárala  con  el 
número  que  aparece  en  la  parte  derecha  del  listado. 

Si  es  el  mismo,  puedes  seguir  tecleando,  pero  si  es 
diferente  deberás  buscar  errores  en  la  línea  que 
acabes  de  introducir.  Observa  sobre  todo  los 
siguientes  puntos: 

•  Los  espacios  sólo  se  tienen  en  cuenta  si  van 
entre  comillas.  Los  demás  los  puedes  omitir.  Si  tienes 
problemas  con  alguna  línea  tecléala  tal  y  como 
aparece  en  el  listado,  ¡teniendo  en  cuenta  las  claves, 
por  supuesto! 

•  Los  comandos  Basic  se  pueden  abreviar,  de 
modo  que  puedes  poner  ?  en  vez  de  PRINT  o 
P<SHIFT  0>  en  vez  de  POKE. 

•  También  se  tiene  en  cuenta  el  número  de  línea. 
Si  por  error  introduces  la  línea  100  en  vez  de  la  1000, 
por  ejemplo,  tendrás  que  teclear  nuevamente  la  línea 
100  (que  se  habrá  borrado)  y  a  continuación  la  1000. 


1  RLM  "PtRFECIU"  .LiS 

2  REM  POR  JAMES  E.  BORDEN,  RUN  EEUU  .96 

3  REM  (0  1986  COMMODORE  WORLD  .157 

4  :  . 236 

5  P0KE56 , PEEK ( 56 ) —  1 : POk  E52 , PEEk ( 56 )  .119 

6  CLR:PG=PEEK (56) :ML=PG*256+60  .232 

7  s  .239 

8  P=ML:L=24  .216 

9  S=0: FOR1=OT06: READA: IFA=— 1 THEN16  .59 

10  I FA<  OORA  >255THEN 1 4  .146 

11  POKEP+I ,A:S=S+A:NEXT  .81 

12  READSC:  IFS<  >SCTHEN14  .250 

13  L=L+1 : P— P+7 : G0T09  .97 

14  PRINT "ERROR  EN  DATAS  LINEA" ;L: EN  .60 
D 

15  :  .247 

Efe  P0KEML+4 , PG: POKEML+ 1 O , PG  .60 

17  POKEML+ 16, PG : POKEML+20 , PG  .221 

18  POKEML+32 , PG: POKEML+38 , PG  .110 

19  POKEML+ 1 41, PG  .97 

20  SYSML : PR I NT " C CRSRD 3  C WHT ICORRECT  .98 
OR  ACTIVADO 

21  PRINT"  SYS " ML " =CONECTAR  .127 

22  PRINT"  SYS " ML+30 " =DESCGNECT  AR C CO  .122 
MM7  D 

23  :  . 255 

24  DATA173,5,3,201 ,3,208, 1 ,594  .22 

25  DAT A96, 141 , 105,3, 173,4,3,525  .181 

26  DATA141 , 104,3, 162, 103, 160,3,676  .214 

27  DATA1 42, 4, 3, 140,5,3,96,393  .177 

28  DATA234, 234, 173, 104,3, 141 ,4,893  .96 

29  DATA3, 173, 105,3, 141 ,5,3,433  .177 

30  DATA96, 32, 124, 165, 132, 1 1 , 162,722  .18 

31  DATAO, 142,240,3, 142,241 ,3,771  .87 

32  DATA189,0,2,240,51 ,201 ,32,715  . 16¿ 

33  DATA208, 4, 164,212,240,40,201 , 106  .177 
9 

34  DATA34, 208, 8, 72, 165,212,73,772  .146 

35  DATA1 , 133,212, 104,72,238,241 , 100  .237 
1 

36  DATA3, 173,241 ,3,41 ,7, 168,636  .142 

37  DAT  A 1 04 ,24, 72,24, 1 04 ,16,1, 345  .225 

38  DATA56, 42, 136, 16,246, 109,240,845  .238 

39  DATA3, 141 ,240,3,232,208,200, 1027  .123 

40  DATA173, 240, 3, 24, 101 ,20,24,585  .72 

41  DATA101 ,21 , 141 ,240,3, 169,42,717  .49 

42  DATA32,210, 255, 169,0, 174,240, 108  .170 
O 

43  DATA3, 32, 205, 189, 162,4, 189,784  .83 

44  DATA211 ,3,32,210,255,202, 16,929  .214 

45  DATA247, 164, 1 1 ,96, 145, 13,32,708  .87 

46  DAT A32 , 0 , O , O , O , O , 0 , 32 ,  —  1  .146 


•  Si  quieres  modificar  alguna  línea  a  tu  gusto, 
obtén  primero  la  suma  de  control  correcta  y  luego 
modifícala. 

Si  por  alguna  razón  no  consigues  la  misma  suma 
de  control  que  aparece  en  el  listado,  prueba  a  borrar 
la  pantalla  y  teclear  la  línea  entera  de  nuevo.  Un 
artículo  completo  sobre  el  funcionamiento  de  este 
programa  apareció  en  el  número  23  de  Commodore 
World. 


1  REM  "PERFECTO"  VERSION  C-128  .197 

2  REM  POR  JAMES  E.  BORDEN,  RUN  EEUU  .96 

3  REM  (0  1986  COMMODORE  WORLD  .157 

4  s  . 236 

5  P=5 1 20: L  =  1 8  .  165 

6  S=0: FOR I =0T06: READA: I FA=- 1 THEN 1 3  .182 

7  I FA<00RA>255THEN1 1  .205 

8  POKEP+ I , A: S=S+A: NEXT  .78 

9  READSC: IFS< >SCTHEN1 1  .53 

10  L=L+ 1 : P=P+7 : G0T06  .222 

11  PRINT "ERROR  EN  DATAS  LINEA" ;L: EN  .57 
D 

12  :  .244 

13  PRINT" CCRSRDD  t  YEL  DCORRLCTOR  ACT  .123 
1  VADO 

14  PRINT"  SYS  5120  =CONECTAR  .234 


15  PRINT"  SYS  5150  =DESCONECT AR C COM  .171 
M6D 

16  SYS51 

17  : 

18  DATA 

19  DATA 

20  DATA 

21  DATA 

22  DATA 

23  DATA 

24  DATA 

25  DATA 
O 

26  DATA 

27  DATA 

28  DATA 

29  DATA 

30  DATA 

31  DATA 

32  DATA 

33  DATA 
1  12 

34  DATA 

35  DATA 

36  DATA 
035 

37  DATA 
100 

38  DATA 

39  DATA 

40  DATA 

41  DATA 

42  DATA 
88 

43  DATA 

44  DATA 

45  DATA 

46  DATA 
,1173 

47  DATA 

48  DATA 

49  DATA 

50  DATA 

51  DATA 

52  DATA 

53  DATA 

54  DATA 
7 

55  DA1A 
1 


20: NEW  .90 

.249 

173,5,3,201,20,208,1,611  .23? 

96,141,45,20,173,4,3,482  .79 

141,44,20,162,43,160,20, 590  . 230 
142,4,3,140,5,3,96,393  .171 

234,234,173,44,20,141,4,850  .48 
3,173,45,20,141,5,3,390  .255 

96,32,13,67,140,255,19,622  .254 

162,0,142,252,19,142,253,97  .63 

19, 142 t254, 19, 189,0,2,625  .16 

201,32,240,8,201,48,144,874  .221 
7,201,58,176,3,232,208,885  .200 

238,189,0,2,240,54,201,924  .71 

32,208,5,172,254,19,240,930  .238 
42,201,34, 208 ,10,72,173, 740  . 1 65 
254,19,73,1,141,254,19,761  .92 

104,72,238,253,19,173,253,1  .109 

19,41,7,168,104,24,72,435  .244 

24,104,16,1,56,42,136,379  .121 


16.246.109.252.19.141.252.1  .192 

19.232.208.197.173.252.19.1  .69 

24,101,22,24,101,23,141,436  .204 
252,19,169,42,32,241,20,775  .45 
32,188,20,160,2,185,185,772  .168 
20,32,241,20,136,16,247,712  .133 
165,116,208,9,165,117,208,9  .10 

5,169,145,32,241,20,172,784  .101 
255,19,96,13,32,32,162,609  .200 

0,173,252,19,232,56,233,965  .111 
100,176,250,105, 100,202,240  .  140 

3,32,232,20,201,10,176,674  .85 

5,205,252,19,240,15,162,898  .154 
0,232,56,233,10,16,250,797  .105 

24,105,10,202,32,232,20,625  .168 
170,72,138,9,48,32,241,710  .117 

20,104,96,170,173,0,255,818  .210 
72,169,0,141,0,255,138,775  .243 

32,210,255,104,141,0,255,99  .238 

96,49,49,25,255,0,255,729,-  .15 


1 — 62/Commodore  World 


APLICACIONES 


Las  mejores  aplicaciones  publicadas  en  COMMODORE  WORLD  desde  nuestros  comienzos,  a  un 
precio  realmente  increíble. 


LOS  DOS  DISCOS  POR  SOLO 


Esta  es  la  lista  de  los  programas  que  hemos  incluido  en  los 
SUPER  DISCOS  DE  APLICACIONES: 


C-64:  RUNSCRIPT,  DATAFILE,  CALCAID, 
CONTABILIDAD,  ORDENA  TUS  DISCOS  5.0, 
DOCTOR  DE  DISCOS,  EDITOR  DE  CARACTERES, 
ARTISTA  JOYSTICK,  +RAPID,  TURBOSAVE, 
DISK-0-64,  BASIC  4.5,  +TECLADO  64. 

C-128:  RUNSCRIPT,  DATAFILE,  MICROLOGO, 
TURBOSAVE,  ULTRA  HIRES,  COMMPAINT,  FIND 
128. 


-r ftcruAL 

-'SCO  “ 


VIC-20:  VICSCRIPT,  MINICALC,  DELUXE 
DATAFILE,  DISK-O-VIC,  EDITOR  DE  CARACTE¬ 
RES,  +TECLADO,  BASIC  VIC. 


<c)1985  by  “ 

n  ftnadir  progranas 
MPm  Listar  programas 
OI  Buscar  programas 
mm  imprimir 
OI  Guardar  lista 
W9|  Leer  lista 

CI  Enviar  comando 
M  Quitar  programa 

£5  El  Cambiar 


Las  instrucciones  están  incluidas  en  los  discos.  Más  de 
ochenta  páginas  con  las  más  completas  explicaciones  de 
manejo  de  estos  programas. 

¡¡ATENCION!! 

En  el  texto  de  los  giros,  indica  el  detalle  de  tus  pedidos. 

Envía  el  boletín  a  Commodore  World:  e¡  Rafael  Calvo,  18-4Q  B.  28010  MADRID 


¡¡¡PUEDES  ENCARGARLO  YA!!! 


CUPON  DE  PEDIDO  -  SUPER  DISCOS  APLICACIONES 


Nombre  y  apellidos 
Dirección  . 


Población  .  Telétono  . 


DESEO  RECIBIR  LOS  SUPER  DISCOS  DE  APLICACIONES  A  1 .990  PIAS. 


□  Incluyo  cheque  por 
CU  Envío  giro  nQ  . 


.  por . 

Gastos  de  envío  incluidos 


ptas. 

ptas. 


l 


DONDE  TODOS  LOS  JUEGOS  ACABAN,  COMIENZA... 


CBM64 


i  1 

r*isisa| 

1  ** 

*■  wmtfm 1 

1ICS 

OFTWAR. 

E.  Plaza  de  España,  18. 

Torre 

de  Madri 

d,  29-1.  28008,  Madrid. 

5  com 
a  2 1 ') 
encías 

ra  reembi 
'  de  4  a  8 
y  Distribi 

>lso  (de  lunes  a  viernes, 
horas):  (91)  248  78  87. 
uidores:  (91)  314  18  04. 

